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-REM_ 
IDENTIFICATION 
PROOUCT ID: AC -TO9S5D -MC 
PRODUCT TITLE: CVTSBDO TSVOS CTRL PART 2 
DEPARTMENT: COMPUTER SPECIAL SYSTEMS/PGG 
DATE: AUGUST 23, 1985 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUEO AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO oat oy Sgt SE IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1982, 1985 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


OIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 000 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 
| 


THIS IS_A POP-11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF A_TSVOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A POP-11//23 SYSTEM 

5G. BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 

FUNCTIONS THAT AIO IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 

TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 

ON CERTAIN FUNCTIONS. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE EN VIRONMENT . 
THIS PROGRAM CAN BE USED. WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE 'R RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


POP-11/23 PROCESSOR AND MEMORY 

CAUTION:DIAGNOSTIC REQUIRES 32k _, OF MEMORY 

(286K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSVOS MAGTAPE SUBSYSTEM CDORIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR CHSAAA.SYS VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR <¢XXDP+) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS GUIDE; DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1980. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS-UG-001 
DATE: AUGUST 1962 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 
DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 
DATE: AUGUST 1982 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

eT eg POP - oO Ags hte PROCESSOR AND MEMORY 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 

FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+) 

1.5 ASSUMPTIONS 

ALL_ HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REP 

a pe. BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 

CVTSAA HAS RUN SUCESSFULLY. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
ys & ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME i 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER‘S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tC) 
PROCEED CONTI FROM AN ERROR HALT 


ONT 

RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 
CONSIDERED TO nee AT START TIME 


OROP DEACTIVATE A_UNI 

PRINT PRINT STATISTICAL mg it CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

OISPLAY TYPE A LIST OF ALL rete INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE i so 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START” 


SEQ 0004 
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2.1.1 OFERATOR COMMANDS 


bin J i ya rg tts IS A POP-11/23_ DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN 


THE 
CHQUS XKDP + USERS GUIDE ,OOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


-R VTSB2? 

DIAG. wy -TIME SERVICES REV D. APR 79 
#eeeTSVOS LOGIC DIAGNOSTICeses 

Is TSvos 

> 


2.2 SWITCHES 


THERE ARE SEVERAL eae WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED gee WITH A BRIEF DESCRIPTION OF EACH 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE pig 2 SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 


NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS List | WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. L OTHER TESTS WILL NOT BE RUN. 
7PASS:DDD0D EXECUTE opbbo PASSES (0D 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
/EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DODDD PASSES ONLY. (ODDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0.5,10,11,12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-S/PASS: 1000/E0P : 100 


ThE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
tye a 2) ALL UNITS WILL TESTED. 1000 TIMES AND 3) THE END OF 


SES ONLY. A 
“SWITCH CAN BE RECOGNIZED BY THE FIRST THREE oes "YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5” 


SEQ 0005 


nee 
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| BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
| COMMAND. 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
yey UNTIL EXPLICITLY SET USING THE ae at : FLAGS 


ALSO CLEARED AFTER A START COMMAND UNLES 5 HE 
FLAG SWITCH. THE ZFLAGS ND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
T THE STATE OF THE FL LAGS: THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 
FLAG EFFECT 
HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
LOE LOOP ON ERROR 
TER« INHIBIT ALL ERROR REPORTS 
IBRe INHISIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL ceIRST LEVEL CONTAINS 
ERROR TY . TEST AND UNIT) 
IXEs INHIGIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO‘ S) 
PRI DIRECT MESSAGES TO LINE PRINT 
PNT PRINT TEST NUMBER AS TEST EXECUTES 
BOE “BELL” ON ERROR 
UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 
IOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
IFY MORE THA x 


AM ON E 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 
/FLAGS :LOE: IER: BOE 


2.4 HAROWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HAROW NF ORMATION BY TYPING "CHANGE HW (L) ?” 

YOU MUST ANSWER aye" AFTER A T COMMAND UNLESS THE HAROWARE 
INFORMATION HAS BEEN “PRELOADED USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
Ce ieund THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
DWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSDB = 172520, VECTOR = 224 

ON A “Y" CYES) “wte, TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE Ash hiy 7 SELECT THE UNITS TO tn pasty. A 

R T T OF. THE QUESTION IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY Y A CAR at a RETURN ts" TYPED AS A 
RESPONSE. A “ m A _ DECIMAL NUMBER IS 
REQUIRED AS A SPONSE “(0)” INDICATES aN OCTAL NUMBER IS BEING 
pg 2 Sh An ct) INDICATES. THAT A LOGICAL RESPONSE IS TO BE MADE: 


@ UNITS (D0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 


THE 
UNITS CCONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ASSIGNED IN OR 


ARE ASST DER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
rete FOR TESTI 


NG AS FOLLOWS: 
TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 
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2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMM THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS ae GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY My © SW (L) 2?" 

IF YOU WISH TO By ANY PARAMETERS, ANSWER BY TYPING 

“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLUVING QUESTIONS ARE ASKED ON A_ START RESTART, OR CONTINUE. 
THEY ALLOw FLEXIBILITY IN THE WAY THE PROGRAM BEHAVE 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHISIT ITERATIONS (L) N ? <TYPE “Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS ba ‘wir ALL QUESTIONS FOR EACH 
UNIT TO BE ee ee IF YOU HAVE A MULTIPLEXED A SUCH_AS 

A MASS STORAGE CONTROLLER Me SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 
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~ ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 

THESE UNITS ARE peeenivee BY THE OCTAL NUMBERS O THROUGH 7. T 

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 

Q-FACTOR. THIS Q-FACTOR MAY BE O OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (0) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ?_ 160000<CR> 
?. O<CR> 


0) 

SUB-DEVICE @ (0) 
Q-FACTOR (0) 0 ? 1<CR> 
UNIT 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ?_ 1<CR> 
Q-FACTOR (0) 1 ? *octRs 

T3 
SR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 

T4 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 

IT 5 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 6 
CSR ADDRESS (0) ?. 160000<CR> 
SUB-DEVICE @ (0) ? 5<CR> 
Q-FACTOR (0) 0 ? * ecR> 

¢ 

UNIT 7 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
00 NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. 
NOT VERY EFFICIENT. 


HERE 


SEQ 0009 


THE PROCEDURE SHOWN IS 
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SEQ 0010 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
Le TUR ee THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (D) ? 8&<CR> 


2 
SR ADORESS (0) ?_ 160000<CR> 
UB-DEVICE @ (0) ?. 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 

T3 
SR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ?. 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 

7 


UNIT 

CSR ADORESS on? 160000<CR> 
SUB-DEVICE @ C09" 2? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
Ts AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. CIF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADORESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 
@ UNITS (D) 2? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ?. 160000<CR> 
SUB-DEVICE @ C09" ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0O,1,0,...1.1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 





| USER DOCUMENTATION MACRO YOS.02 Monday 16-Sep-85 10:39 Page 11 
‘a SEQ 0011 
2.7 QUICK START-UP PROCEDURE (XXDP+) 
| 
TO START-UP THIS PROGRAM: | 
1. BOOT XXDP-+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


. TYPE “START” 
ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
ANSWER ALL THE HARDWARE QUESTIONS 


| 
i 
. ANSWER THE “CHANGE SW” QUESTION WITH “N” 
You a THIS PROCEDURE YOU WILL BE USING ONLY THE 


“vou & 


WHEN 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


«WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = peg R 


UNIT NUMBER = 0 - N (N IS Td UNIT IN PTABLE) 
TST NUMBER = Test ANO SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR eee 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE pe “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


| 
t 
ERROR MESSAGE EXAMPLE 1 
HIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 


T 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND yor THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS F 

a REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CVTSB HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT @> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <6> IONL.<S> IFBY<1> 
mo <10> ISPEED<7> ILOP<4> IFPT<O> 


: 100020 RECV: 100020 XOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 XOR: 000000 
WORD 000000 : 


XPD: 000000 
XPD: 070217 RECV: 070217 XOR: 000000 
XPD: 000074 RECV: 000034 XOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE ORIVE.IN THIS 
hae oe oor rae ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


CVTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR_ NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC.S 

tERMINATION CLA Ss CODE = UNRECOVERABLE ERROR 

PACKET ADORESS = 026420 

PACKET WORD @ 140010 

PACKE 000010 
000000 
000024 


> 
; 
_i 
2 
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} 
{ 
ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 
CVTSB6_ HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 

EXPD: 0003512 RECV: 000112 XOR: 000200 
4.0 PERFORMANCE AND PROGRESS REPORTS 


AT _ THE END OF EACH oe ease THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF S REPORTED SINCE THE Cette ta WAS STARTED. 
THE “EOP” SWIT TCH CAN CAN BE USED ONTROL HOW OFTEN THE END 


OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (PDP-11/23) 

OR>STA/FLA: PNT : HOE : UAM 

UNITS (0) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 

VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS THREE 
Fe a te artomes more TEST NBR AS EXECUTED” , “HALT ON 


NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 


TST: O01 INITIALIZE @3 TEST 
TST: 002 BASIC WRITE SUBSYSTEM MEMORY TEST 
TST: 003 DMA MEMORY ts TEST 


TRANSPORT BUS CHECK 
TST: TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 
TST: 008 READ/WRITE DATA PARITY CHECK TEST 
TST: O09 MISCELLANEOUS LOGIC CHECKS TEST 
TsT: 010 STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST 
TST: O11 STAND-ALONE CONFIGURATION TYPEOUT NOT ere TEST 
TST: 012 STAND-ALONE SCOPE LOOPS NOT EXECUTED T 
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NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. iw FIGURES ARE 
TO BE USED AS A GUIDE. (THE TIMING WAS DONE ON A POP-11/23 
PROCESSOR WITH A LA-34 CONSOLE. 


THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS oe DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS re IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 


TEST N/I ITER DEF 
NUMBER SECS. SECS SECS. 

1 15 sO 35 
2 6 S 
3 1 1 ] 
a 110 540 430 
Ss 1 10 9 
6 10 120 110 
7 1 3 2 
8 15 15 12 
9 17 17 13 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 


Q.V. 2 MINS 19 SECONDS 
DEFAULT 11 MINS 35 SECONDS 


SEQ 0014 
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5.0 DEVICE TNFORMATION TABLES 


WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
a MO att REQUESTS THE FOLLOWING P-TABLES PARAMETER 


CHANGE HW (L) ? 


@ UNITS (D0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A_START, RESTART OR CONTINUE THE SUPERVISOR 
oe tlh CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 


SEQ 0015 
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6.0 TEST SUMMARIES 


TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 


TEST DESCRIPTION: 


This test verifies that a Hardware Initialize command 
a efter a Write Characteristics command sets up 

he Command, Message and Characteristic image blocks 
os sake controller ram correctly. 


TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY Cae WITH A 

BSELO SELECT nw OF 0 (NO-OP) EXECUTES CORRECTLY. 1 LSO 

VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON- ZERO 

MODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
DECODING AND HANOLING SEQUENCES. 


TEST 3: DMA MEMORY ADDRESSING 


This test verifies that the controller can properly address and 

eccess all available CPU memory (other than that occupied by the 

diagnostic and diagnostic supervisor code) for both reading’ (DATI) 

and writing (DATO). Verified are the LSI-11 Bus drivers for all 

available address lines. Up to this point only 16 bits have been 
for OMA transfers. 


SRHEAASESASEEASEAASERESSEESEEESEASSESESSEASESESSAAESEEASSAKESESEEEESDE 
CAUTION 


The LSI BUS drivers for all available address lines 
ere only checked when running on a 11/238 system with more than 
128K words of memory! 


BARAK EERO EERE AAHARACRAARAAAERHARAARREHARRARHRAEEHAAKARERAH RARE EHH 


TEST 4: RAM EXERCISER TEST 


THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 


TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,B 


TeST DESCRIPTION: 


oe test verifies the Invert Extended Features function 
en Lepiophty invert the Extended features switch and 
t t internal timers A and B operate correctly. 


SEQ 0016 


ee 
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TEST 6: FIFO EXERCISER 


TEST DESCRIPTION: 


Thies test uses the Write Subsystem Memory command to 
verify the controller's FIFO and associated status and 
control logic. 


TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 


TEST DESCRIPTION: 


Write to TSSR ister to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Be et Hardware Switch Clear then: 


Do Write S eoreres Write Miscellaneous to Set Extended Features. 


Do WRITE CHARACTERISTICS to select reserved unit 7 
Do ea Write Subsystem READ STATUS 
If any transport interface signals are asserted then Print Error 


TEST 6: TRANSPORT BUS INTERFACE LOOPBACK TEST 


TEST DESCRIPTION: 


This test verifies the yin @ Transport Bus 
drivers, receivers, and signal loopback logic. Note 
that the Static Transport Gus test must have run 
correctly for this test to provide meaningful results. 


TEST 9: READ/WRITE DATA PARITY TEST 


TEST DESCRIPTION: 


This test verifies that the Write Date Parity generator 
and the Read Date Parity checker age Fe yt The 
Transport Bus signel loopback mode is enabled and a 

Set Wron ath function is executed. Then various 
Write ystem Memory functions are performed to 
write date to and from the FIFO in loopback mode. 

The program then checks to insure ea Read Date parity 
error occurred. 

A Reset FIFO is done and the Read Date parity 

error bit is again tested to insure it cleared. 
Finelly a Clear 5 acone ser ity function is done 

and it is verif data word can pass in loopback 
mode without setting Read Date parity error. 


SEQ 0017 
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TEST 10: MANUAL INTERVENTION 


ME MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST"”) 
THAT ALLOWS THE OPERATOR TO a OUT VARIOUS ELEMENTS Pa FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY Ly PROGRAM ALONE. WHEN 

THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 6. 

SELECTION CODES AND SUBROUTINES ARE: 


- 


ROUTINE 


HELP. PRINTS THIS MENU 

TURN ON ALL M7196 LED INDICATORS 
TURN OFF ALL M7196 LED INDICATORS 
OFFLINE/ONLINE ATTENTION TEST 
WRITE-PROTECT TEST 

PRINT EXTENDED TRANSPORT STATUS 
EXIT CRETURN TO SUPERVISOR) 


AUSaUWMro 


CONFIGURATION TYPEOUT 
nas IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 


HE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
HE FOLLOWING INFORMATION IS PRESENTED: 


1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON CEXTENDED 
FEATURES ENABLED) OR OFF CEXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


3.0 MICROCODE REVSION LEVEL OF THE M7196, 
4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 
5.0 UNIT SELECT CODE AND STATE ee WRITE ENABLED/PROTECTED) 


OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 


SEQ 0018 
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TEST 12: SCOPE LOOPS 
THIS IS A son OS ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 


HODULE. THESE or U 

7 “ OR “LOOP ON TEST (CSUBTEST)” FACILITIES DON’T 
EM ALLOW THE OPERATOR TO. FERO * A_PROBLEM_ IN THE EARLY 

TESTS (I.E, THE HARDWARE MAY NOT a 3 SPONDING TO A REGISTER 


ACCESS, CAUSING A BUS ge ag VEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM M ¢ THE. CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE: 
CODE SCOPE LOOP 

te) HELP. PRINT THIS MENU. 

1 TSBA READ ACCESS 

2 TSSR_READ ACCESS 

3 INITIALIZE (TSSR WRITE ACCESS) 

4 TSOB HIGH BYTE WRITE ACCESS 

5 TSOB LOW BYTE WRITE ACCESS 

6 TSOB MAINTENANCE -MODE WORD WRITE ACCESS 

7 TSOBX_CTSSR HIGH BYTE) WRITE ACCESS 


CEXTENDED FEATURES oe Bs MUST BE ON 
TO USE SELECTION CODE 7) 
8 EXIT CRETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPT 


S 
i OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTEN 


FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
Bo CAN BE USED WHEN THE 5 pete 


SEQ 0019 


S 
0-377, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU- LEVEL. 


7.0 MAINTENANCE HISTORY 


REVISION A - MARCH 1962 
REVISION B - APRIL 1983 
MODIFIED THE DIAGNOSTIC TO a | 11/23A'S 
THAN 256KB OF ME CHANGED 


MORE 2 
TEST 3_ SUBTEST 3 SO IT WON'T TRY TO CREATE 
NON-EXISTANT MEMORY ADDRESS (NXM). 


REVISION C - JUNE 1984 
MINOR CHANGES FOR “ORION” CPU 
ELIMINATED CPU TYPE IDENTIFICATION MESSAGE. 
REVISION D - JULY 1985 
. CHANGES MADE TO BECOME COMPATIBLE WITH THE 
, - XXDP+ V2.1 XM CEX D MONI TO 


TENDE AND 
' ALLOW THE EXTENDED FEATURES TO WORK IN 
f EITHER THE ON OR OFF POSITION. 


© 
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SEQ 0020 | 
! 
930 .TITLE TSV2 - PROGRAM HEADER | 
eas -SBTTL PROGRAM HEADER | 
938 -MCALL SVC 
939 000000 Svc ; INITIALIZE SUPERVISOR MACROS 
940 -ENABLE LC 
941 “NLIST BEX,CND 
947 000000 -ENABL ABS,AMA 
9a6._ti«zw 002000 . #2000 
949 002000 BGNMOD TSV2 
002000 TSVe:: 
950 
951 soe 
952 3 THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
oes 3: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
gee 
955 
956 002000 POINTER BGNSW,BGNSFT ,BGNAU, BGNDU,BGNRPT 
957 002000 HEADER CVTSB.0,0,.655.,0 
002000 LSNAME:: ;DIAGNOSTIC NAME 
2000 103 -ASCII /C/ 
002001 126 -ASCII /V/ 
124 .ASCII /T/ 
002003 123 -ASCII /S/ 
002004 102 oe :¥ 
002005 000 .BYT 
000 BYTE ° 
002007 000 BYTE 0 
002010 LSREV:: sREVISION LEVEL 
002010 104 -ASCII /0/ 
002011 LSDEPO:: 30 
002011 060 -ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000000 .» WORD 0 
002014 LSTIML:: ;LONGEST TEST TIME 
002014 001217 . WORD 655. 
002016 LSHPCP:: sPOINTER TO H.W. QUES. 
002016 101242 D LSHARD 
002020 L$SPCcP sPOINTER TO S.W. QUES. 
20 101374 10) L$SOFT 
002022 LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
2 002156 .WORD L$Hw 
002024 LSSPTP:: sPTR. TO S.W. PTABLE 
002024 002166 ‘ Dd L$Sw 
002026 L$LADP: : sDIAG. END ADDRESS 
002026 102004 .» WORD L$LAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 .» WORD 0 
002032 L$Co:: 
002032 000000 . WORD 0 
002034 LSDTYP:: sDIAGNOSTIC TYPE 
002034 000000 ~WORD 0 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 i D 0 
002040 LSOTP:: PTR. TO DISPATCH TABLE 
002040 002124 WORD LSOISPATCH 


002042 L$PRIO::— ;DIAGNOSTIC RUN PRIORITY 
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'021702 
022000 


LSENVI:: 
LSEXPi:: 
LSMREV:: 


LSEF:: 


L¢sPc:: — 
LSDEVP:: 
LSREPP:: 
LSEXP4::° 


LSEXPS:: 


LSAUT:: © 


L$SDUT:: 
LSLUN: : 
LSDESP:: 
LSLOAD: : 
LSETP:: 
LSICP:: 


‘LSCCP:: 


LSACP:: 
LSPRT:: 


LSTEST:: 


LSOLY:: 
LSHIME: : 


— fo. 2 2 2 
m 


LSOVTYP 
LSRPT 


L$DESC 
EsLOAD 
0 
L¢INIT 
L¢CLEAN 
L$AUTO 
L¢PROT 
fe) 

.¢) 

0 


sREVISI 
I 


sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 


ae REV AND EDIT @ 


sDIAG. EVENT FLAGS 


: POINTER TO DEVICE TYPE LIST 
sPTR. TO REPORT CODE 


s;PTR. TO ADD UNIT CODE 

s;PTR. TO DROP UNIT CODE 

sLUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
sGENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

sPTR. TO INIT CODE 

:?TR. TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

sPTR. TO PROTECT TABLE 

3s TEST NUMBER 

sDELAY COUNT 

;PTR. TO HIGH MEM 


SEQ 0021 
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959 


HEADER 
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SEQ 0022 


-SBTTL OISPATCH TABLE 


THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


LSDISPATCH: : 


! 
! 
| 
' 
| 
| 
DISPATCH 12 
WORD 12 
-WORD T1 
T2 
T3 
T4 
TS 
T6 
. 17 
. T8 
° T9 
. T10 
. Til 
. T12 


a ee ee 
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| SEQ 0023 
| DEFAULT HARDWARE P-TABLE 


968 .SBTTL DEFAULT HARDWARE P-TABLE 
970 
971 } THE DEFAULT HAROWAPE P-TABLE CONTAINS DEFAULT VALUES OF 
972 | THE TEST-OEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
973 ; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
975 002154 te" BGNHW OFPTBL ;DEFAULT HARD-P-TABLE 
002154 000003 "WORD L10000-L¢HW/2 
002156 LSHW:: 
ong C0258 OFPTBL: : 
977 002156 172520 WORD 172520 ; 1ST COF 2) REGISTERS. 
978 002160 000224 "WORD 224 ‘ INTERRUPT VECTOR 


E 
979 002162 000200 -WORD PRIO4 s INTERRUPT PRIORITY. 
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SEQ 0024 


982 SBTTL SOFTWARE P-TABLE 
983 
oe 
965 I THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
| 386 | PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 

988 002164 ; BGNSW - SFPTBL 

002164 000004 "WORD L10001-L¢Sw/2 

002166 Lésw:: 

002166 SFPTBL:: 

166 TRANSTST:: WORD 0 ; ENABLE TEST OF TRANSPORT(S) IF =1 
991 002170 000000 NOITS: : "WORD 0 ; INMIBIT ITERATION OPTION. 
993 ; NZ © INHIBIT ITERATE. 
994 002172 000017 LERRMAX: : WORD 15 | LOCAL CPER TEST) ERROR LIMIT 
+ GLOBAL (PER UNIT) ERROR LIMIT 


995 002174 000?°0 GERRMAK: : “WORD 200. 





TSV3 - GLOBAL AREAS 


SOFTWARE P-TABLE 
1008 
009 


1020 
1021 002176 
002176 


1033 012176 





001000 
000400 


000002 
000001 


000040 
000037 
36 
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-TITLE TSV3_ - GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


TSv3 
TSV3:: 
-SBTTL GLOBAL EQUATES SECTION 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
s ARE USED IN MORE THAN ONE TEST. 


gee 

EQUALS : GET STANDARD EQUATES. 
} BIT DIFINITIONS 
BITIS*= 100000 


; EVENT FLAG DEFINITIONS 
s €EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


32. s START COMMAND WAS ISSUED 
EF .RESTART== 31. s RESTART COMMAND WAS ISSUED 
EF .CONTINUE== 30. s CONTINUE COMMAND WAS ISSUED 
EF .NEW== 29. s A NEW PASS HAS BEEN STARTED 
EF .PUR== 26. s A POWER-FAIL/POWER-UP OCCURRED 


s PRIORITY LEVEL DEFINITIONS 
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ro 
Ps 


© 17 
UDPDR7= 177636 
.ENDC 


SEQ 0026 
GLOBAL EQUATES SECTION 
bn | 
000340 TO7e= 340 
000300 PRI06*= 300 
000240 PRIOSe= 240 
000200 PRIOS*= 200 
000140 PRIOSe= 140 
000100 PRIO2*= 100 
000040 PRIO1s= 40 
000000 PRIOO== 0 
t 
OPERATOR FLAG BITS 
000004 tviee 4 
000010 LOT=s 10 
000020 ADR== 20 
occado TOUes 40 
Ca0100 ISRee 100 
000200 UAH== 200 
B0E <= 400 
001000 PNT== «1000 
PRIs= 2000 
IXE*= 4000 
010000 IBE*= 10000 
TER== 20000 
040000 LOE*= 40000 
1034 “ — 
1035 002176 KT11 : }DEFINE MEMORY MANAGEMENT REGISTERS 
.SBTTL MEMORY MANAGEMENT DEFINITIONS 
;eKT11 VECTOR ADDRESS 
000250 C= 250 
LeKTIL STATUS REGISTER ADDRESSES ; 
177572 177572 
177574 SRi= 177574 
177576 SR2- 177576 
172516 SA3- 172516 
i@USER “I° PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 
UIPDRi= 177602 
UIPDR2= 177604 
UIPORS= 177 
UIPDR4= 177610 
UIPDRS= 177612 
UIPORG= 177614 
VIPOR7= 177616 
seUSER “D° PAGE DESCRIPTOR REGISTORS 
Bs 
| 
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OTPRBGe F776056 ADDRESS REGISTERS 


UDPARO= 177660 
UDPAR1= 177662 
664 


. F KB 

*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
STPDRO= 172200 

SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 
SDPORO= 172220 

"ENDC 

| sSUPERVI 
gTPARO= 


SOR “I” PAGE ADDRESS REGISTERS 
72240 


"IF NB 
*SUPERVISOR “D“ PAGE ADDRESS REGISTERS 
SOPARO= 172260 


SE@ 0027 
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| 
| 
| 


172316 
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MEMORY MANAGEMENT DEFINITIONS 


SOPAR4= 172270 


. IF _NB 
s*#KERNEL “D" PAGE 


K 1 

KIPARI= 172342 
KIPAR2= 172344 
KIPARS= 172346 
KIPAR4= 172350 
KIPARS= 172352 
KIPAR6= 172354 
a yt 172356 


~ 
N 
~ 


SEQ 0028 
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SEQ 0029 
TSVOS REGISTER AND PACKET DEFINITIONS 
ety .SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 
| 1042 3 
1043 : SOME GENERAL EQUATES. 
iets . | 
1046 000004 ERRVEC== 4 3; POINTER TO ERROR VECTOR FOR BUS TIME OUT. | 
1047 000060 TTIVEC== 60 : INTERRUPT VECTOR FOR CONSOLE INPUT 
1048 177560 TTICSR== 177560 : BUS ADORESS OF CONSOLE I 
1049 177562 TTIBFR== 177562 : CONSOLE INPUT DATA BUFFER 
rity 177520 BOVPCR== 177520 3 BOV11 PAGE CONTROL REGISTER 
1052 s¢ 
1053 ;B8IT DEFINITIONS FOR TSSR REGISTER 
toss - 
1056 100000 SC= BIT1S sSPECIAL CONDITION 
1057 040000 BIE= BIT14 38US INTERFACE ERROR 
1058 C20000 SCE= BIT13 3SANIT 
1059 010000 s BIT12 sMODIFICATION REFUSED 
NXM= BIT11 sNONEXIS MORY ERROR 
1061 002000 NBA= BIT10 sNEED BUFFER ADDRESS 
1062 001400 HIADDR= BIT9!BITS i EXTENDED ADDRESS BITS 
1063 000200 SSR= BIT7 ;SUB SYSTEM READY 
1064 000100 OFL= BIT6 ;OFF LINE BIT 
1065 000060 FATERR= BIT4!BITS FATAL TERMINATION ERROR CODES 
.e8 000016 TERCLS= BITS!:BIT2!:B6IT1 i TERMINATION CODES 
1068 3¢ 
1069 3 
1070 ;B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
1071 3(XSTO) 
1072 3 
1073 s- 
1074 
1075 100000 XSOTMK= BIT15 ;TAPE MARK DETECTED 
1076 040000 XSORLS= BIT14 RECORD LENGTH SHORT 
1077 XSOLET= BIT13 3L AL E 
1078 010000 XSORLL= BIT12 sRECORD peg LONG 
1079 XSOWLE= BIT11 sWRITE LOCK 
002000 XSONEF*= BIT10 sNON EXECUTABLE FUNCTION 
1081 001000 XSOILC= BITS sILLE 
XSOILA= BITS sILLEGAL ADDRESS 
1083 XSOMOT= BIT7 ;TAPE IN MOTION 
000100 XSOONL= BIT6 s TRANSPORT ON LINE 
1085 XSOIE= BITS s INTERRUPT 
XSOVCK= BIT4 sVOLUME CHECK BIT 
1087 000010 XSOPED= BITS 3PHA NCODED ORIVE 
1088 000004 XSOWLK= BIT2 sWRITE LOCKED 
1089 000002 xSOBOT= BIT1 owe - TAPE 
1090 000001 XSOEOT= BITO sEND OF TAP 
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SEQ 0030 
TSVOS REGISTER AND PACKET DEFINITIONS 


1092 3° 
1093 :BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
1094 3(XST1) ' 
1095 t- j 
1096 100000 X1.0LT BIT1i5 Ore LATE ' 
1097 040000 x1. SPARE = BIT14 at ED 
1098 020000 X1.COR = BIT1 COR RECTABLE DATA ERROR 
1099 017375 X1.MBZ © BIT12+BIT11+B1 LOST 19-O T7eGlVScOLIS+OE IS BETS BIISBE TO sALWAYS O 
1100 000400 X1.RBP = BITS sREAD BUS PARITY ERROR 
Hts 000002 Y1.UNC = BIT1 | UNCORRECTABLE DATA OR HARD ERROR 
1103 3° 
1104 :B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
ties 3(xXST2) 
ge 
1107 100000 X2.0PM = BITIS yg HS IN PROGRESS (TAPE MOVING) 
1108 040000 X2.RCE = BIT14 oe CHECKSUM ERROR 
1109 035400 X2.SPARE* BIT13+BIT12+BI hs Sb a sNOT USED BY TSVOS CALWAYS=0) 
1110 c02000 X2.WCF = BIT10O sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
1111 000200 X2.EXTF = BIT7 3;IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
1112 000100 X2.BUFE = BIT6 x 4 WRITE CHAR CMD THEN = BUFFERING ENABLED 
1115 000077 X2.REV = 000077 ;IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
4338 000007 X2.UNIT = BIT2+BIT1+BITO. 3IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
1116 3¢ 
1117 ;8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
tt 3(XST3) 
g¢ 
1120 177400 X3.MO0E = 177400 fn 2 rege ES ERROR CODE 
1121 000200 X3.SPARE= BIT7 sNOT USED BY TSVOS 
1122 000100 X3.0PI = BIT6 ;OPERAT ION INCOMPLETE 
1123 000040 X3.REV = BITS sREVERSE 
1124 000020 X3.TRF = BIT4 i TRANSPORT RESPONSE FAILURE 
1125 000010 x3.0CK «= BITS sDENSITY CK 
1126 000006 X3.MBZ =BIT2+BIT1 sNOT USED ALWAYS O 
1127 000001 X3.RIB = BITO i REVERSE INTO BOT 
tis 
3¢ 
1130 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
ttt 3(XST4) 
ge 
1133 100000 X4.HSP = BIT15 sHIGH SPEED 
11 040000 xX4.RCE = BIT14 owe roe COUNT EXCEEDED 
1135 020000 X4.TSM = BIT13 it RANSPORT SPECIAL MODE 
11 017400 X4.MBZ «= Sar agcOTis BF 10+BIT9+BITS poy USED ALWAYS 0 
Te 000377 xX4.WRC = 000377 WRITE RETRY COUNT FIELD 
1139 3° 
1140 F 
1141 ;TSSR TERMINATION CODES (BIT 0-2) 
1142 3 
1143 ae 
1144 
1145 000006 TSREJ= 302 sCOMMAND REJECTED 
1146 000006 UNREC= 6 sUNRECOVERABLE ERROR 
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SEQ 0031 
| TSVOS REGISTER AND PACKET DEFINITIONS 


1148 36 
1149 3 j 
1150 sDEVICE REGISTER OFFSETS | 
1151 3 
1152 s- 
1153 
1154 000000 TSBA== 0O 
1155 000000 TSOB== 0 :TSOB/TSBA REGISTER 
11 000001 TSBAH== 1 
1157 000001 TSOBH== 1 :TSOB/TSBA REGISTER HIGH BYTE 
1158 000002 TSSR== 2 sTSSR REGISTE 
Hirt 000003 TSSRH== 3 sTSSR REGISTER HIGH BYTE 
1161 3¢ 
1368 : TSOB ADDRESS BIT DEFINITIONS 
ire 000003 Ai716 = BITi+BITO sADDRESS BITS 17:16 ARE IN 1:0 
1166 
tre ; * COMMAND DEFINITIONS 
1169 000017 b-GETSTAT = 17 ;GET STATUS 
1170 000013 P.INIT = 13 s INITIALIZE 
1171 00060 P . CONTROL = 12 sCONTROL COMMANDS 
1172 000011 PF * 11 F 
1173 000010 P.POSITION = 10 sPOSITION : 
1174 000006 P.WRTS 8 sSUBSYSTEM WRITE 
1175 000005 P. WRITE = 5 ; 
1176 000004 P.WRTCHAR = 4 sWRITE CHARACTERISTICS 
1177 000001 P .READ =1 sREAD 
1178 
1179 ¢ 
+389 3; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
i- 
1182 100000 P.ACK = BIT15 sBUFFER AVAIL FOR CONTROLLER 
1163 040000 P.CVC = BIT14 sCLEAR VOLUME CHE 
1184 020000 P.OPP = BIT13 iREVERSE oe OF DATA BITS 
1185 010000 P.SWB = BIT12 rg BYTES IN MEMORY 
1166 007400 P.MODE = BIT11!BIT10!:6I t3terr JEXTENDED COMMAND MODE FIELD 
1187 P.IE ENABLE 
1188 000140 P.FMT= BIT6!8ITS iPACKET HEADER pee CALWAYS=0) 
tet 000037 P.CMD 37 sMAJOR COMMAND FIELD 
+135 : CONTROL COMMAND MODE CODES 
ge 
1193 PC.RELEASE = 00256. sRELEASE BUFFER 
1194 000400 PC.REWIND = 12256. sREWIND 
1195 001000 PC. = 20256. iNO- oP 
1196 002000 PC.IEREW = 42256. } REWIND IMMEDIATE INTERRUPT 
1197 002400 PC. ERASE = 50256. sSECURITY ERASE 
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SEQ 0032 
| TSVOS REGISTER AND PACKET DEFINITIONS 


1199 3° 
1200 1 CONTROLLER RAM DEFINITIONS 
1201 " 
1202 000167 AMCHBEG = 167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
1203 000200 RMCHEND © 200 iCHARACTERISTICS TO DATA END RAH ADDRESS 
1204 000201 RMPKTBEG* 201 }COMMAND PACKET BEGIN RAM ADDRESS 
1205 000210 RMPKTEND= 210 }COMMAND PACKET E 
1206 000215 RMMSGBEG= 215 MESSAGE BUFFER BEGIN RAM ADDRESS 
1207 234 RMMSGEND= 234 MESSAGE BUFFER END RAM 
3° 
1209 
1210 REGISTER DEFINITIONS IN THE MESSAGE BUFFER 
3 
i313 a 
1214 000006 XSTO== 6 EXTENDED STATUS REGISTER © (WORD 4) 
1215 000010 XSTi== 8. EXTENDED STATUS REGISTER 1 (WORD 5) 
i 000012 XST2== 10 ‘EXTENDED STATUS REGISTER 2 (WORD 6) 
1217 c00014 XSTS== 12 EXTENDED STATUS REGISTER 3 CWORD 7) 
1218 000016 XST&== 14 ‘EXTENDED STATUS REGISTER 4 (WORD 8) 
i2 3¢ 
1221 3 
1222 OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
1s : 
1226 000002 PKLOW = 2 ;LOW ORDER CHARACTERISTIC DATA POINTER 
1227 000004 PKHI. = 4 HIGH ORDER CHARACTERISTIC DATA POINTER 
1238 000006 PKBCNT = 6 NUMBER OF BYTES IN DATA PACKET 
1230 000010 EXBCNT=10 ;NUMBER OF BYTES IN EXTENDED DATA PACKET 
1232 ‘ 
1233 DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
1235 000000 , BSELO = 0 :BYTE 0 
12 000001 BSELL = 1 ‘BYTE 1 
1237 000002 SEL2. = 2 ;WORD 2 
000004 SELDATA = 4 ;WORD 3 





| 
' 
| 
i 
| 
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TSVOS REGISTER AND PACKET DEFINITIONS 


+ 
:BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


W.NOP #0 
PW.RDRAM *i 
PW. WTRAM =2 
PW.RFIFO = 3 
PW. WFIFO = 4 
PW.ROSTAT * 5 
PW. WCTL = 6 
PW. WFMT = 7 
PW.WMISC = 10 
PW. WNP = 11 
PW.022 = 20 
PW.O011 * 21 
Pw.013 = 22 
PW.NO131 = 23 
PW.RDEXT = 24 


SEQ 0033 


EST 13 
sDISABLE_MICROTEST 11 AND 13 
sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 


oa 
;BSELL CODES FOR WRITE TAPE CONTROL 


wc. IFAD = BIT7 
we. IOTAD = BIT6 
we. IiTAD * BITS 
WC. ISRESV = BIT4 
WC. IREW = BITS 
WC. IRWU = BIT2 
WC .IFEN * BIT1 
we .IGO = BITO 
sB8SEL1 CODES FOR WRITE FORMAT 
i- 
WF. IHISP = BIT7 
WF. IWRT = BIT6 
WF. IREV * BITS 
WF. IWFM = BIT4 
WF .IEDIT = BITS 
WF. IERASE = BIT2 
- ISRESV = BIT1 
WF. I4RESV = BITO 


sIFAD - ag dl ADDRESS 


sITADO - TRANSPORT ADDRESS BIT O 
sITAD1 - TRANSPORT ADDRESS BIT 1 
sIRESVS - RESERVED @5 

sIREW - REWIND 

sIRWU = =- REWIND AND UNLOAD 

sIFEN - FORMATTER ENABLE 

3GO0 

sIHISP - HIGH SPEED 

;IWRT - WRITE 

sIREV - REVERSE 

IWM = - wir FILE MARK 

sIEDIT - EDIT 

sIERASE - ERASE 

sIRESV3 - RESERVED @3 

sIRESV4 - RESERVED 04 


* 
;BSELL CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 


MS .EXT = BIT7 
MS .RSFIFO = BIT4 
MS .RSTAPE = BITS 
MS.ATTN * BIT2!6IT1 
MS.RSD = BITO 


sINVERT SENSE OF EXTENDED FEATURES SWITCH 
sRESET FIFO AND INPUT PARITY ERRORR 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 
SATTENTION TRIGGER FIELD 

sRESET TIMER A,B THEN DELAY TIMES IN SEL2 
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SEQ 0034 
TSVOS REGISTER AND PACKET DEFINITIONS 
1292 +¢ | 
otos s+ MS.ATTN SUBCODES 
37 
1295 000000 MSA.NOP = O#2 OP CNOTHING TRIGGERED) | 
1296 000002 MSA.VOL = 1e2 SIMULATE ON-LINE/OFF-LINE TRANSISTION 
1297 000004 MSA.NRAM= 2¢2 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
1338 000006 MSA.FRAM= 342 ;FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
299 3¢ 
toot ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
ge 
1302 000200 NP .IR = BIT? s INTERRUPT REQUEST (0-1 TRANSITION) 
1303 000100 NP .OUT = BIT6 tina § DATA DIRECTION ouT (O= IN) 
1304 00004 NP .LOOP = BITS sE E TRANSPORT LOOPBACK 
1303 000020 NP .WRP = BIT4 tURITE. CORRECT PARITY CSET=0 TO WRITE WRONG) 
3¢ 
Ea ‘. s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
g@ 
1309 
1310 C00200 S2.0IM = BIT? sWORD #9 BYTE 2 ry a MISS 
1311 000100 S2.IlLwW = BIT6 ; ILwW 
i3 000040 S2.OUTRDY = BITS ; ROY H 
1313 000020 S2.INROY = BIT4 ; IN ROY H 
1314 000010 S2.ATIMR = BITS ; TIMER A FLAG H 
1315 000004 S2.BTIMR = BIT2 $ TIMER 6 FLAG H 
1316 000003 Se. F * BIT1+BITO 3 CUNDEF INED ) 
1317 100000 $1.PAR * BIT1S sWORD #8 BYTE 1 PARIN H 
1318 040000 $1.I2RESV = BIT14 ; IRESV2 
1319 $1.I1RESV = BIT13 ’ IRESV1 
1320 010000 $1.1 * BIT12 ; IEOT L 
1321 000 $1.IIDENT = BIT11 ; IIOENT H 
1322 2000 $1.1 = BIT10 ; ICER H 
1323 001000 $1. IFMK = BIT9 ; IFMK H 
1324 000400 $1.IHER = BITS : IHER H 
1325 200 SO. ISPEED * BIT7 sWORD #6 BYTE O ISPEED H 
1326 000100 SO. IRDY = BII6 F IROY L 
1327 000040 so.I = BITS ; TONL L 
1328 000020 SO.ILDP = BIT4 ; ILOP L 
1329 000010 So. ID6Y = BITS ; IOBY L 
1330 000004 SO. IRWD = BIT2 ; IRWO L 
1331 000002 SO. IFBY = BIT1 ; IFBY L 
1332 000001 SO.IFPT = BITO : IFPT L 





A 
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j SEQ 0035 
| SPECIAL MACROS AND OPDEFS. 

1333 -SBTTL SPECIAL MACROS AND OPDEFS. | 

1336 3¢ 

1337 sSAVE GENERAL REGS 1 TO S 

1338 t- 

1339 

1340 «MACRO SAVREG 

1341 JSR RS ,REGSAV 

1342 .ENOM 

1343 

1344 3° 

teen 3: MACRO TO FORCE AN ERROR 

346 3° 

1347 -MACRO FORCERROR TAG,.NOTSSR 

1348 -NLIST 

1349 -IIF NOF LISTALL, .NLIST 

1350 LIST 

1351 [IF 8 NOTSSR 

1352 MOV TSSRCRS),R1 sREAD TSSR 

13535 -ENOC 

1354 MOV FORCER ,FORCER :IS FORCER SET? (LEAVE C BIT ALONE) 

1355 BNE TAG 3;68R IF YES 

1356 -NLIST 

1357 -IIF NOF LISTALL, .LIST 

1358 -LIST 

1359 

i3e1 

1362 ; * MACRO TO FORCE AN EXIT TO “= eo he ITERATIONS 

1363 3 WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

1364 3 SO TO FORCE — AND EXIT ON 1 ERROR SET 

1365 3 FORCER TO 177 

i366 F TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

se 

1368 -MACRO FORCEXIT TAG 

1369 »NLIST 

1370 .IIF NOF LISTALL, .NLIST 

1371 LIST 

1372 MOV FORCER ,FORCER sIS FORCER NEGATIVE? 

1373 BMI TAG 3;B8R IF YES 

1374 -NLIST 

1375 -IIF NOF LISTALL, .LIST 

1376 -LIST 

1377 .ENOM 

1378 3¢ 

Hah 3: MACRO TO INCREMENT ERROR COUNTS 

32° 

1381 -MACRO NEXT.ERRNO 

1382 -NLIST 

1363 333.ZIF NOF LISTALL, .NLIST 


1364 ERRNO=ERRNO+1 
1385 taa.IIF NOF LISTALL, .LIST 
1386 ist 
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SPECIAL MACROS AND OPDEFS. 


7 
1390 MACRO TO PERFORM XOR 
1391 * 


1393 — xOR A.B 
1395 BIC 8, (SP) 
BIC : 
1397 BIS (SP)+.8 
.ENOM 


EN=0 s INITIALIZE ERROR NUMBER 
1401 -SBTTL FORCER - FORCE ERROR FLAG 


402 

1404 : 

1405 3 
3 


Pt4 002176 000000 FORCER: : ° + FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
; 
5 


THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


BY THE MACRO “IFERROR”). AN ERROR NEED NOT - 
EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


SEQ 0036 
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j 
| GLOBAL DATA SECTION 


1451 0026352 


-SBTTL GLOBAL DATA SECTION 
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SEQ 0037 


i THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
sIN MORE THAN ONE TEST. 


i THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


Su qe COCoooooR Oooo oSoeee 


538 


UNI UNDER TEST. 

;QUICK VERIFY FLAG. 

sADORESS OF CSR FOR CURRENT DEVICE 
SINTERRUPT VECTOR 
s INTERRUPT PRIORITY 
sNUMBER OF TESTS RUN IN THIS PASS 
rREMAINING Beuree une ge TEST 


NUMBER CE UNDER T 
iSET IF FATAL ERROR IS DETECTED IN TEST 
APE INTERRUPT WAS RECEIVED 


' 
aT e SWITCH 


ENABLE SWI ° ON 
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 

ADORESS ae oat ERROR 


T INE TEMP 
sEXPECTED MESSAGE BUFFER DATA 
sRECEIVED MESSAGE BUFFER DATA 
s TEMPORARY STORAGE FOR PRINT 








‘ 
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| SEQ 0036 
i TSTBLK - TEST DATA TABLE 
1453 .SBTTL TSTBLK - TEST DATA TABLE | 
1454 } 
i 1 | 
3 
rtd sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
3 
1459 sIN SEQUENCE THE DATA IS: 
1460 3 
1461 ’ ALL ZEROS 
1462 : ALL ONES 
1463 3 WALKING ONES 
1464 ’ WALKING ZEROS 
1465 t ALTERNATING ONES AND ZEROS 
1466 3 
1467 s- 
1468 
1469 002752 TSTBLK: ; 
1470 002752 000000 «WORD O sALL ZEROS 
1471 002754 177777 -WORD 177777 sALL ONES 
1472 002756 000001 -WORD BITO sDATA FOR WALKING ONES 
473 0027 -WORD BIT1 
1474 002762 .WORD BIT2 
1 0027 000010 -WORD BITS 
1476 002766 -WORD BIT4 
1477 002770 -WORD BITS 
002772 000100 -WORD ®BIT6 
1479 002774 -WORD ®BIT7 
1480 002776 -WORD BITS 
1481 003000 001000 -WORD BITS 
003002 .WORD BIT10 
1483 003004 -WORD BIT11 
00 010000 -WORD BIT12 
1485S 003010 -WORD 6BIT13 
003012 -WORD ®BIT14 
1487 003014 -WORD ®BIT15 
1486 003016 177776 .WORD *tCBITO sDATA FOR WALKING ZEROS 
003020 .WORD rCBIT1 
1490 003022 1777735 .WORD *tCBIT2 
1491 003024 177767 .WORD *tCBITS 
003026 177757 .WORD *tCBIT4 
1493 003030 177737 .WORD *tCBITS 
1494 003032 7677 .WORD *tCBIT6 
1495 003034 177577 -WORD *tCBIT7 
1496 003036 177377 -WORD *tCBITS 
1497 003040 176777 .WORD *tCBIT9 
14986 003042 175777 .WORD *tCBIT10 
1499 003044 1737 -WORD *tCBITi1 
003046 167777 -WORD *tCBIT 
1501 003050 1577 .WORD *tCBIT13 
1502 003052 137777 .WORD *CBIT14 
1503 003054 07 .WORD *tCBITiS 
00 -WORD 125252 sALTERNATING ONES. ZEROS 
1505 003060 -WORD 052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


052525 
003062 TBLEND== 
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1309 -SBTTL GLOBAL ENVIRONMENT STORAGE 
® 
rere sSTORAGE FOR DEVICE REGISTERS 
1512 003062 000000 100000 000000 Ouemy : 0,100000,0,0 sOUMMY DEVICE REGISTERS... 
1513 003072 000000 000000 000000 00,0.0.0,0.0,0 
1514 s..-FOR MULTI-UNIT CHECKOUT. 
13516 003112 000000 OUFLG: : -WORD 0 s"DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 

15186 003114 000000 NODEV: : -WORD 0 sFLAG TO SAY NO DEVICE. 
1520 003116 000000 TEMP1:: -WORD 0 sSOME TEMP LOCATIONS. 

003120 000000 TEMP2:: -WORD O 

003 000000 XXCOMM: : -WORD 0 sXXDP+ COMM BLOCK POINTER. 
1523 003124 000000 FREE:: -WORD 0 31ST FREE MEMORY ADDRESS... 
1333 003 000000 FRESIZ:: -WORD O ..,AND SIZE CIN WORDS). 

0031 000000 FREEHI: . 0 sLAST word IN FREE SPACE 
13526 0031352 C00000 KTFLG:: -WORD 0 sKT11, MEM AVAIL FLAG - 
1527 e . WORD 0 = <24K OR NO KT - 
13526 - NZ = >24K AND KT. 
1529 003134 000000 KTENABLE: : -WORD O 1SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
1330 0031 000000 NXMFLG: : -WORD O sSET IF WE CAN TEST CLEARED OTHERWISE 
1331 003140 000000 NXMLO: : «WORD 0 TNX LO ADDRESS BITS 
13s 0031 000000 NXMMI : : -WORD O NXM HI ADDRESS BITS FOR DAL’S 16-21 

003144 000000 T23A:: -WORD O $11/23A 
1334 003146 000000 T238:: -WORD O 311/238 
1333S 003 000000 TSBFLG: : «WORD O sTEST 38 FLAG tO 
13536 003152 002000 PST32u:: -WORD 2000 — BLOCK ADDRESS FOR 32K START 
1537 003154 000000 SIFLAG: : «WORD O 
1338 003156 000000 BADDAT: : -WORD 0 SACTUAL DATA 
1339 003160 000000 GODAT: : -WORD 0 sEXPECTED DATA 
1340 003162 000000 LOOPFL:: -WORD 0 
1341 003164 CTAB: : sCONFIGURATION TABLES. 
rt | 003164 000000 CTABM: : -WORD 0 sCONFIG WORK. 

003 000000 -WURD 0 
1343 0031 000000 -WORD 0 

S 003172 000000 -WORD O 
003174 177777 -WORD -1 sEND OF MEM TABLE. 
7 003176 CTABE:: 

1548 SERROR- STATISTICS TABLE (1 WORD PER UNIT). 64 UNITS MAX: 


13549 


1550 : 6 ° UNIT NOT TESTED 

et 2 a 

1338 ; 160000 « UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
1554 - 160001 = UNIT DROPPED: NOT IDLE AT START 

1555 : 14XXXX* UNIT DROPPED: XXXX 

1557 003176 értase OLKN 64. 

1558 903376 000000 ERTABE: “WORD 

1560 003400 000000 SKIPT: .WORD 0 s1°SKIP SUBTEST O*NO SKIP OF SUBTEST 





a 
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| 1362 .SBTTL GLOBAL TEXT MESSAGES 
to 
| 1564 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1565 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
1566 ; MORE THAN ONE TEST. 
1567 t-- 
1568 3° 
1569 iNAMES OF DEVICES SUPPORTED 
te 
1571 003402 DEVTYP <TSVOS> 
003402 LSDVTYP: : 
003402 124 123 126 “ASCIZ /TSVOS/ 
"EVEN 
1572 
1580 3¢ 
1581 ;TEST DESCRIPTION 
i- 
1583 003410 apesc: pEScRIPT <##e# TSVOS LOGIC DIAGNOSTIC - REPLACE 17196 IF ERROR sese> 
003410 052 052 052 -ASCIZ /#aaa TSVOS LOGIC DIAGNOSTIC - REPLACE H7196 IF ERROR seee/ 
584 
1598 
1599 3¢ 
1600 }BIT TO ASCII CONVERSION FOR TSSR REGISTER 
1602 003502 003542 003545 003551 {SSRBIT:: .WORD 18,2$,3$,48,5$.68,78,8 
1603 003522 003603 003607 003613 "WORD 98,108,118, 128.138,148,15$,16$ 
1604 003542 123 103 000 18: .ASCIZ ‘SC! 
1605 003545 102 111 105 2%: "ASCIZ ‘BIE’ 
1606 003551 123 103 105 38: "ASCIZ ‘SCE’ 
1607 003555 122 115 122 4$: "ASCIZ ‘RMR’ 
1608 003561 116 130 115 S$: "ASCIZ ‘NXM’ 
3565 116 102 101 68: "ASCIZ ‘NBA’ 
1610 003571 102 111 124 78: "ASCIZ ‘BIT’ 
1611 003576 102 111 124 8$: "ASCIZ ‘BITS: 
1612 003603 123 123 122 98: "ASCIZ ‘SSR’ 
1613 003607 117 106 114 108: :ASCIZ ‘OFL' 
1614 003613 102 111 124 118:  :ASCIZ ‘BITS’ 
1615 003620 102 111 124 12%:  IASCIZ ‘BIT4’ 
1616 003625 102 111 124 138: lASCIZ ‘BITS’ 
1617 003632 102 111 124 148 "ASCIZ ‘BIT2' 
1618 003637 102 111 124 158: lASCIZ ‘6IT1’ 
1619 102 111 124 168: ASCIZ 'BITO" 


1620 - EVEN 

1621 003652 124 123 123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 

1622 003705 124 123 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 

1623 003740 040 040 116 NXR: -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
1624 003777 045 101 040 NXRX: -ASCIZ /#A ADORESS: #06 

1625 004020 045 101 040 TSSX: -ASCII /#A TSBA, TSSR EXP'D: #068A,8068N/ 


045 101 040 -ASCIZ /#A aTSBA.TSSR REC'D: #068A,806/ 
1627 004117 045 116 04S FUSI: -ASCII /sNs 
1628 004123 040 040 125 USI: -ASCIZ / UNEXPECTED INTERRUPT / 
1629 004152 040 040 111 NSI: -ASCIZ INTERRUPT EXPECTED, NOT RECEIVED/ 
1630 004215 045 116 s -ASCII /sNSA/ 


/ 
04 FNOI : A 
1631 004221 040 040 116 NOINTR: .ASCIZ 7 NO INTERRUPT WAS GENERATED’ 
1632 004256 040 040 111 IFAULT: .ASCIZ / 


INTERRUPT FAULT/ 


SEQ 0040 
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1633 004300 045 101 040 INTX: -ASCIZ /8A CPU PC: SO68A TSBA: #06/ 

1634 004335 040 040 042 NOINIT: .ASCIZ / “BUS-INIT” DION’ T INITIALIZE CRT LER? 
1635 004407 040 040 042 NSINIT: .ASCIZ / “SOFT-INIT” DION'T INITIALIZE THE DPU/ 
1636 004457 040 040 042 — -ASCIZ Th "BUS-RESET” DION’ T INITIALIZE THE DPU/ 


SEQ 0041 


045 116 045 EXPGT2: .ASCIZ /sSNSA EXP'D: SO6SA, SO6SNSA REC’ 02 “oe 
1641 004643 045 101 040 OUAD1I2: .ASCIZ /#A REGCW) WRITTEN TO: SO68A REG(R) READ, EX EXP! O: S068A, PEC'D: #06/ 
1642 004745 122 101 115 PKTRAM:: -ASCIZ ‘RAM Contents Do Not Match Packet Sent’ 
1643 005015 040 040 103 SCME: -ASCIZ / CONFIG DOESN'T MATCH MFG. MASTER/ 
1644 005056 127 122 111 WRTMSG: .ASCIZ ‘WRITE CHARACTERISTICS Fei led’ : 
1645 005113 124 123 123 WRTERR: .ASCIZ ‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
1646 005206 124 123 123 RDERR: .ASCIZ ‘TSSR Incorrect After READ Commend, More iH te Set Than SSR 
1647 005300 106 101 124 SCHERR: .ASCIZ ‘FATAL ERROR IN SUBTEST - CHECK TAPE, CABLES, TRANSPORT etc. 
re 005372 105 122 122 RETERR: .ASCIZ ‘ ERROR IN ry ly - WRITE DATA RETRY FIVE times F FAILED’ 


| 

| 

1638 004 000 -ASCIZ 
1639 004533 045 101 040 EXPGOT: .ASCIZ ran “ExP'D: SO068A, REC'D: #06/ 
1640 004567 


164 045 116 045 NOMEM: .ASCIZ ‘SNSA eeeee NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. seesesNn’ 
1650 005554 045 116 045 M6186: .ASCIZ ‘SNSA eeeseesenseaceses 11/23A SYSTEM seesesessesesessemNn’ 
+633 005645 045 116 045 8189: ae 'GNSA seeeeseseseseoaes 11/238 SYSTEM sesesesesesesesesiN’ 
1332 -SBTTL GLOBAL ERROR REPORT SECTION 
1655 3° 
1656 : THE aM, ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
1657 : CALLS THAT ARE USED IN MORE THAN ONE TES 
1638 3 ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
t-- 
1660 005736 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005736 NXRERR: : 
1661 005736 PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 
005736 013746 003114 MOV NODEV, -( SP) 
005742 012746 003777 MOV @NXRX, -C SP) 
005746 012746 000002 MOV @2,-(SP) 
005752 01 MOV 
754 104415 TRAP =: C$PINTX 
005756 062706 000006 #6 ,SP 
1662 005762 004737 005770 JSR PC EXTEND 3; PRINT EXTENSION IF REQUIRED. 
1663 005766 ENOMSG 
005766 L10002: 
none 005766 104423 TRAP CsMSG 
3 
1665 s THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
see 3 TO ANY OF THE ABOVE ERROR SIGNATURES. 
1668 005770 005727 EXTEND: TST (PC)> 
1669 005772 000000 EXTA: 0 : © = NO EXTENSION. 
1670 005774 001402 BEQ 1s 
1671 005776 004777 1/7770 JSR PC. @EXTA : APPEND EXTENSION TEXT. 
1672 006002 1%: PRINTX @NULCR 3; PRINT A BLANK LINE 
012746 004530 MOV @NULCR, -( SP) 
012746 000001 MOV #1, -(SP) 
006012 010600 MOV sp 
006014 104415 TRAP =: CSPNTX 
062706 000004 sp 


006016 ADD o4, 
1673 006022 000207 RTS PC 
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006164 012746 006606 MOV @TSSDEF , -C SP) 


SEQ 0042 
PRITSSR - PRINT TSSR CONTENTS 
1675 .SBTTL PRITSSR - PRINT TSSR CONTENTS 
isn " | 
| 
| 4679 ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
| 4680 ;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
1681 BY A MESSAGE PRINTING ROUTINE | 
1883 } INPUTS: 
1684 ’ 
1685 , Ri CONTENTS OF TSSR 
686 i 
1687 ;SUBORDINATE ROUTINES: 
688 Q 
1689 ' CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
* 
1691 ‘- 
1692 
1693 006024 PRITSSR: 
1694 006024 SAVREG ;SAVE GENERAL REGISTERS 
1695 006030 010104 MOV R1,R4 sSAVE THE TSSR CONTENTS 
1696 006032 PRINTB @TSSRFOR,R4 PRINT THE CONTENTS OF TSSR 
006032 01 MOV . 
006034 012746 006415 MOV @TSSRFOR, -(SP) 
006040 012746 000002 MOV 2° 
006044 01 
006046 104414 TRAP CSPNTB 
006050 706 000006 ADO 66 .SP 
1697 006054 010400 MOV R4.RO :GET TSSR BACK FOR CHKAMB 
1698 006056 004737 016044 JSR PC. CHKAMB ARE CONTENTS AMBIGUOUS ? 
1699 006062 103410 ecs 5$ sBRANCH IF NOT 
1700 006064 PRINTX @AMBTSSR ;SHOW CONTENTS ARE AMBIGUOUS 
012746 006635 MOV @AMBTSSR, -(SP) 
006070 012746 i MOV #1, -(SP) 
006074 01 SP; RO 
006076 104415 TRAP CSPNTX 
006100 062706 000004 64,SP 
1701 006104 010403 S$: MOV R4-R3 CONTENTS OF TSSR 
1702 006106 042703 001476 BIC @HIADOR!FATERR! TERCLS.R3 ;CLEAR ALL MULTIPLE BIT FIELDS 
1703 006112 001434 BEQ 20% ;NO BITS ARE SET 
1704 006114 012702 002632 MOV OTMPBFR ,R2 ; TEMPORARY ASCII BU-FER 
1705 006120 012701 003502 MOV @TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
1706 006124 005703 10%: TST R3 ;REMAINING BITS TO CONVERT 
1707 001413 BEQ 158 BRANCH WHEN ALL ARE DONE 
1708 006130 000241 cLCc ;CLEAR CARRY FOR SHIFT 
1709 006132 006103 ROL R3 iSHEFT NEXT BIT TO CARRY 
1710 006134 10 acc 13% IF BIT NOT SET 
1711 006136 011100 MOV (R1),RO POINTER TO BIT Ofr INITION 
1712 006140 112022 118: MOVB (RO)+,(R2)+ sMOVE ASCIZ TO BUFFER 
1713 006142 001376 BNE iis ;MOVE ALL SIT 
1714 006144 112762 000054 177777 MOVB  @ ,, -1(R2? }INSERT A COMMA TO TERMINATE 
1715 006152 005721 13%: TST CRid- ;POINT TO NEXT DESCRIPTION 
1716 006154 000763 BR 108 ;GET THE REMAINING BITS 
1717 006156 105042 15%: CLRB -(R2) s TERMINATE THE LINE 
1718 006160 PRINTX @TSSOEF,@TMPBFR ;PRINT THE BIT DEFINITIONS 
006160 012746 002632 MOV OTMPBFR. -(SP) 
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TSSR CONTENTS 
tr des 000002 
104415 

062706 000006 
010403 

042703 177761 
016303 006676 
010346 
012746 006476 
tds 000002 
104415 
062706 000006 
010403 
042703 177717 
001416 
C06203 
006203 
006203 
016303 007236 
010346 
012746 006537 
r+ Les 4 000002 
104415 

0627 000006 
042704 176377 
001411 

1 

012746 006435 
ty Shes 000002 
104415 
062706 000006 
013703 062200 
010346 
012746 000001 
010600 

104415 
062706 000004 
000207 


25%: 


HS -(SP) 
CSPNTX 
ercTERces R3 
OCOOCR3),R 
aTcoase R3 
R3, -(SP 
@TCOASC, -(SP) 
#2. -(SP) 
CSPNTX 
66, 
R4-R3 
OtCFATERR,R3 
258 
3 
R3 
R3 
TSFCOD(R3),R3 
OTFCASC,R3 
R3,- 
@TFCASC, -(SP) 
SP) 


SP-RO 

CSPNTX 

66,SP 
@tCHIADOR ,R4 
308 

eTEXASC R4 
@TEXASC, -(SP) 
#2, -(SP) 


sp 

CSPNTX 
06,SP 
EPRTSW,R3 
R3 
R3,-C(SP) 
41, -(SP) 
SP .RO 
CSPNTX 


PC 


sGET THE TSSR_CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
;PRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sDON‘'T PRINT IF ZERO 


Ae TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


sCLEAR ALL BUT EXTENDED ADDRESS 
;D0N‘T PRINT IF ZERO 
sPRINT THE EXTENDED ADDRESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


a 





nn 
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_ PRITSSR - PRINT TSSR CONTENTS 


| 1744 006360 EPRT2: 

j ites 006360 045 116 045 EPRT1: .ASCIZ ‘SNSA eeeeeREPLACE M7196eeee0' 
1756 006415 045 116 045 TSSRFOR: .ASCIZ ‘sNSA TSSR = #06’ 7 
1757 006435 045 116 045 TEXASC: -ASCIZ ‘SNSA Extended Address Bits = #06' 
1758 006476 045 116 045 TCOASC: -ASCIZ ‘SNA Termination Class Code = sT' 
1759 006537 045 116 045 TFCASC: -ASCIZ ‘sSNSA Fatel Termination Cless Code = sT’ 
1760 006606 045 116 045 TSSDEF: -ASCIZ ‘sSNSA TSSR Bite Set: sT’ s 
Est 006635 045 116 045 AMBTSSR: even -ASCIZ ‘sNSA TSSR Contents Are Ambiguous’ 
1763 006676 006716 006741 006767 TCOCOD: .WORD 1%,2%,3%,4%,5%.6%,7%,8% 
1764 006716 116 157 162 18%: -ASCIZ ‘Normel Termination’ 
1765 006741 124 145 162 2%: -ASCIZ ‘Termination Condition: 
1766 006767 124 141 160 3%: -ASCIZ ‘Tape Stetuse Alert’ 
1767 007011 106 165 156 48%: -ASCIZ ‘Function Reject’ 
1768 007031 122 145 143 «58%: -ASCIZ ‘Recovereble Error - Tape Position One Record Down’ 
1769 007115 122 145 143 68: -ASCIZ ‘Recovereble Error - Tape Was Not Moved’ 
1770 007162 125 156 162 78: -ASCIZ ‘Unrecoverable Error’ 
1771 007206 106 141 164 8$: -ASCIZ ‘Fetel Controller Error’ 
ie a 
1774 007236 007246 007302 007313 TSFCOU: .WORD 1%,2¢,3%,4% 
1775 007246 111 156 164 1%: - .ASCIZ ‘Internal Diagnostic Failure’ 
1776 007302 122 145 163 28: -ASCIZ ‘Reserved’ 


1777 007313 102 165 163 3%: -ASCIZ ‘Bus Interface or Sanity Check Error’ 
i778 007357 122 145 163 48: ‘a ‘Reserved’ 





i 
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SEQ 0045 





| PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
1781 .SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET | 
1783 3¢ 
1784 sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
1785 sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 
1787 INPUT: 
1768 3 
1789 ’ RO NUMBER OF WORDS IN PACKET 
1790 , R3 HIGH ORDER COMMAND PACKET ADDRESS 
1791 : R4 ADDRESS OF COMMAND PACKET 
o 
1733 ' NOTE: 3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
ge 
1795 
1796 007370 PRIPKT: : 
1797 007370 SAVREG :SAVE THE REGISTERS 
1798 007374 01 MOV RO.RS ;SAVE NO. OF WORDS IN PACKET 
1799 007376 05737 003134 TST KTENABLE {ABOVE 28K UNDER TEST 
1800 007402 001001 BNE 108 :6R IF YES 
1801 007404 005003 CLR R3 ;SET HIGH ORDER ADDRESS TO © 
007406 010301 10$: MOV R3,R1 ;COPY HIGH ORDER ADDRESS 
1803 007410 010400 MOV R4.RO GET LOWER ADDRESS 
007412 006100 ROL RO ;SHIFT BIT 15 INTO C BIT 
1805 007414 006101 ROL R1 ;AND INTO HIGH ORDER 
1806 007416 PRINTS @PKTADD,R1.R4  ;PRINT PACKET ADDRESS 
007416 01 MOV R4,-CSP) 
007420 010146 MOV 1,-(SP) 
007422 012746 007554 MOV TADD, -(SP) 
7 012746 000003 MOV @3,-C(SP) 
007432 01 MOV RO 
007434 104414 TRAP CS$PNTB 
007436 062706 000010 ADD #10,SP 
1807 007442 010300 15%: MOV R3,RO :GET HIGH ORDER ADDRESS 
1808 007444 001404 BEQ 208 3BR IF NOT ABOVE 28K. 
1809 007446 010401 MOV R4,R1 3GET ORDER $s 
1810 007450 004737 017316 JSR C; SETMAP ;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
1811 007454 010004 MOV *R4 ;GET RETURNED PAR6 ADDRESS BIAS 
1812 007456 1 208: CLR 1 ;SAVE WORD NUMBER 
1813 007460 012402 25%: MOV (R4)+,R2 ;GET PACKET CONTENTS 
1814 007462 PRINTS @PKTFRM,R1,R2  ;PRINT THE DATA 
007462 010246 MOV R2,-C(SP) 
007464 010146 MOV R1.-(SP) 
7466 012746 007516 MOV @PKTFRM, -(SP) 
007472 012746 000003 MOV 3,-(SP5 
007476 01 MOV "RO 
007500 104414 TRAP CSPNTB 
007502 062706 0v0010 ADD 10,SP 
1815 007506 005201 INC 1 ;NEXT WORD NUMBER 
1816 007510 020105 CMP R1,R5 ;DONE ALL PACKET WORDS? 
1817 007512 002762 BLT 25% LOOP TILL ALL DONE 
1618 007514 000207 RTS PC ;RETURN 
1820 007516 045 116 045 PKTFRM: .ASCIZ ‘SNSA Packet Word @sDISA = 806° 
182i 007554 045 116 045 PKTADD: -ASCIZ 'SNSA Packet Address = #01805’ 
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| 
PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


1648 

144 007672 

1651 007674 
S2 


50 
18672 007760 


010203 
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177400 


007674 
000004 
000012 


116 


045 


-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


iPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
‘ames ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


: ;INPUTS : 


q 

: R1 RECEIVED DATA 

’ R2 EXPECTED DATA 

+ 

sOUTPUT: 

Q 

' RO XOR OF EXPECTED/RECEIVED DATA 

i- 

PRIBXOR: : 
SAVREG ;SAVE THE REGISTERS 
MOV R2,R3 iEXPECTE D DAT 
XOR R1,R3 FORM THe EXCLUSIVE OR 
MOV @t0<377>,RO iBYTE MASK 
BIC RO,R1 ;SAVE LOW BYTE RECV 
BIC RO, R2 SAVE LOW BYTE EXPD 
BIC 0.R3 — LOW BYTE XOR 
PRINTB SXORBFOR, R2,R1, ais SPRINT THE MESSAGE 
MOV R3,-(SP) 
MOV R1,-CSP 
MOV R ~-(SP 
MOV @XORBFOR, -(SP) 
MOV 4,-CS 
MOV SP RO 
TRAP  CSPNTB 

#12,SP 

MOV R3,RO ;RO HAS XOR ON RETURN 


RTS PC ;RETURN TO CALLER 
XORBFOR: .ASCIZ ‘sNSA EXPD: S03SA RECV: S038A XOR: 803° 
[SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 


s¢ 


;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


; INPUTS: 


3 R1 RECEIVED DATA 
3 Re EXPECTED DATA 
sOUTPUT: 
; RO XOR OF EXPECTED/RECEIVED DATA 
PRIXOR: : 
SAVREG sSAVE THE REGISTERS 
Vv R2,.R3 rEXPECTED DATA 


XOR R1,R3 FORM THE EXCLUSIVE OR 
PRINTS @XORFOR,R2,R1, Rs’ PRINT THE MESSAGE 





i 
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PRIXOR - PRINT EXPD, RECV AND XOR 


SEQ 0047 


007760 010 MOV RS. -¢$P) 

007762 010146 MOV Ri, -(SP 

007764 010246 MOV R2,-(SP) 

007766 012746 010012 MOV @XORFOR, -(SP) 

007772 012746 000004 MOV »-(SP) 

007776 01 MOV 0 

1 104414 TRAP CSPNTB 

010002 062706 000012 ADD #12,SP 
1873 010006 010300 MOV R3,RO ;RO HAS XOR ON RETURN 
1874 010010 000207 RTS PC ;RETURN TO CALLER 


18 
ive 010012 045 116 045 XORFOR: py ‘sNSA EXPD: S068A RECV: S068A XOR: #06’ 
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1879 
80 


ete 010114 
- 1913 010116 


000207 
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| PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


010116 
000002 


116 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
- 


; ROUTINE TO CONVERT BIT VALUES TO oe AND PRINT THE STRING 
‘on ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


SINPUTS: 

: RO OCTAL VALUE TO CONVERT 

’ Ri TABLE OF POINTERS TO ASCII EQUIVALENT 

i 

: 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM ~- PRINT RAM ADDRESS 


yy 


;PRINT CONTROLLER RAM ADDRESS. 
‘tor ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


3 i INPUTS : 
3 


; R4 RAM ADDRESS 
a 
PRIRAM: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB ORAMFOR .R4 ;PRINT RAM ADDRESS IN ERROR 
4,-(SP) 
MOV GRane (SP) 
MOV @2,-(SP)_ 
SP.RO 


ADD ’ 
RTS Pc sRETURN 
045 RAMFOR: poor ‘SNA CONTROLLER RAM ADDRESS = #06’ 


SEQ 0048 








EN 
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SEQ 0049 
PRIADD - PRINT MEMORY ERROR ADDRESS 
1916 .SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS | 
3¢ 
1918 3 ! 
1919 ;PRINT MEMORY ADDRESS 
1920 sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
3 
1922 3 IMPLICIT INPUTS 
i 
924 ; ERRHI - HIGH ORDER ADDRESS 
1925 : ERRLO - LOW ORDER ADDRESS 
1328 3 
1927 ke 
1928 010160 IAD: 
1929 010160 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1930 010164 013700 002236 MOV ERRHI,RO :GET HIGH ADDRESSS 
1931 010170 013701 002240 MOV ERRLO.R1 :GET LOW ADDRESS 
1932 010174 010102 MOV R1,R2 sCOPY LOW ADDRESS 
1933 010176 006101 ROL R1 sSHIFT BIT 15 TO C BIT 
1934 010200 C06100_ - ROL RO sSHIFT INTO HIGH ORDER 
1935 010202 PRINTB @PRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
010202 010246 MOV .-(SP) 
010204 010046 MOV RO, -(SP) 
010206 012746 010230 MOV @PRIAO, -(SP) 
010212 012746 000003 MOV @3,-(SP) 
010216 01 MOV 
010220 104414 TRAP C$PNTB 
010222 062706 000010 ADD #10,SP 
1936 010226 000207 RTS PC ;RETURN 
1938 010230 045 116 045 PRIAO: .ASCIZ ‘sNSA MEMORY ERROR ADDRESS = #01805’ 
1939 “EVEN 
1941 .SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 
3¢ 
1943 3 
1944 ;PRINT MEMORY ADDRESS 
1945 sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
b 
1947 ; IMPLICIT INPUTS 
3 
1949 ; ERRHI - HIGH ORDER ADDRESS 
1950 ; ERRLO ~- LOW ORDER ADORESS 
1951 3 
1952 be 
1953 010274 ITADO: 
1954 010274 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1955 010300 013702 002236 MOV ERRHI,R2 :GET HIGH ADORESSS 
1956 010304 013701 0uv2240 MOV ERRLO.R1 :GET LOW ADORESS 
1957 sMOV —s- R11, R2 sCOPY LOW ADDRESS 
;ROL Ss AL 3SHIFT BIT 15 TO C BIT 
ROL ;SHIFT INTO HIGH ORDER 


1959 3 RO 
1960 010310 PRINTB @PRITO.R1 sPRINT MEMORY ADDRESS LOW IN ERROR 
010310 MOV 
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| PRITADD - PRINT 


1964 010356 
1965 010421 
1966 


MEMORY 
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TEST ADORESS 


010421 
000002 


045 PRITO: 
045 PRIT1: 


#6,SP 

@PRIT1,R2 ;PRINT MEMORY ADDRESS HIGH IN ERROR 
R2, -(SP) 

@PRITI 5¢sP) 

SP .RO 

CsPNTB 

#6, SP 

PC sRETURN 


‘SNSA MEMORY TEST ADDRESS LOW = #06' 
‘SNSA MEMORY TEST ADDRESS HIGH = #06’ 


SEQ 0050 





; 
| 
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2007 010506 
2006 010510 
0312 
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000764 
140010 
010652 
100000 
010652 
000400 
010650 
0v0000 


002116 
177772 


010660 
010650 


010650 


- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


-SBTTL SPACE ~- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


¢ 


JROUTINE TO ISSUE A SPACE RECORDS 
iCORMIAND CFORWARD OR’ REVERSE 


SINPUT: 
R3 NUMBER OF RECORDS TO BE SPACED OVER 
BIT15 CONTROLS DIRECTION 
BITiS = O IS FORWARD 
BIT1S = 1 IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
OUTPUT: 


SET - SPACE RECOROS COMMAND OK 
CLR - SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 
SIDE EFFECTS: 


= Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge G Ge Ge Ge Ge Ge Ge 
: 
< 


SPACE: : 
SAVREG 1SAVE THE GENERAL REGISTERS 
MOV #500. , SDELAY sSET UP DELAY 
HOV #140010, 60% sSET UP SPACE FORWARD 
TST R3 sCHECK FOR DIRECTION 
BMI 53 30R, IF REVERSE INDICATED 
MOV R3, 908 sLOAD UP OF RECORDS TO SPACE 
BR 108 :G0 00 
S¢ BIC @81T15,R3 sCLEAR DIRECTION BIT 
MOV R3,908 , OF RECORDS TO SPACE 
BIS seits. gos 3SET REVERSE BIT IN COMMAND P 
10: MOV 0808 3SET UP R4 WITH PACKE 
MOV Ra T808(RS) sSEND Cc 
me a a 1BR. IF SSA TS SET AND OK 
DELAY 250 DELAY ABOUT .25 SECONDS 
MOV #250 ,(PC)« 
.WORD 0 
MOV LOOLY,(PC)+ 
.WORD 6 
bEC -6(PC) 
BNE _-4 


SEQ 0051 
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SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND ! 


010576 005367 177756 DEC -22(PC) | 
010602 903 7 @NE .-20 
2019 010604 337 010660 DEC :BUMP DELAY COUNTER DOWN j 
010610 001356 BNE 158 :6R, if MORE DELAY 
1 010612 000411 BR 608 sOR IF TROUBLE CARRY = CLEAR 
2022 010614 016501 000002 208: MOV TSSRCRS),R1 sREAD TSSR 
2023 010620 012702 000200 MOV : sSET UP EXPECTED 
2024 010624 020201 250: cH R2,Ri sARE THEY OK 
2025 01 001401 6EQ 40% 30R, IF EQUAL = OK 
2026 01 000402 BR 60% sTROUBLE EXIT 
2027 010632 000261 40%: SEC sSET CARRY NO TROUBLE 
2028 010634 000401 BR 708 sEXIT 
010636 000241 $08: cLC sCARRY CLEAR © ERROR 
6640 $ 
2031 010640 010400 MOV R4.RO sPASS PACKET ADDRESS 
010642 000207 RTS PC : 
Q 
ss s 
i 
2036 sPACKET FOR SPACE COMMAND 
 ] 
2039 010650 .®¢, 61026177770 
2041 3 
2042 COMMAND WORD 
2043 010650 000000 $: : 
2044 gMUBER GF RECORDS TO BE SPACED OVER WORD 
2045 010652 000000 ¢: . WORD 
2046 010654 000000 7 
2047 010656 000000 WORD 
2048 010660 000000 SDELAY: :WORD 0 ;DELAY COUNTER 


- EVEN 
-SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 





i 
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| WRTCHR 


04 011006 
2105 011012 
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- WRITE CHARACTERISTICS COMMAND 


}ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


PINPUT : 
: 
3 
3 


R4 


RS 

REQUIRES 

2 

sOUTPUT: 
R 


CARRY 


sSIDE EFFECTS: 


WRTCHR: : 
10%; 
208: 
25%: 
408: 
45$: 
50%: 


60%: 
708: 


SAVREG 
CLR 


ADDRESS OF PACKET FROM TEST 
FIRST DEVICE UNIBUS ADDRESS 
A CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONTENTS 


SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER urrens ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


BENBSW 
EXTFEA 

R4, TSOBCRS) 
PC: CHKTSSR 
20% 

60$ 
TSSR(RS),R1 
@SSR,R2 


25% 
OOFL ,R2 

R2,Ri 

40$ 

60% 

08. ,R4 

(R4),R3 

0X2. EXTF ,.XST2(R3) 
EXTFEA 
@X2.BUFE,XST2(R3) 
50% 


BENBSW 


70% 
TSSRCRS),RO 
PC 


VE THE eet REGISTERS 
WITCH 


sSA 
sCLEAR BUFFER ENABLE S 


sCLEAR EXTENDED FEATURES SW SWITCH 
NO OUT COMMAND 


ou 
sWAIT_FOR SSR 
sBR, IF SSR IS SET AND OK 
BR IF Ls CARRY = CLEAR 


XPECTED 
sWAS OFF LINE SET IN TSSR 
sBR, IF NO OFL SET 
sMAKE THEM LOOK ALIKE 
RE THEY OK 


3A 

BR, IF EQUAL = OK 

} TROUBLE 

tBOINT TO WAT CHARA DATA PACKET 
MESSAGE BUFFER 


sGET ADDRESS OF 

s EXTENDED FEATURES BIT SET? 

sSET EXTENDED FEATURES SW SWITCH 
sBUFFER ENABLE SWITCH SET 

sBR, IF SWITCH NOT SET 

;SET SOFTWARE SWITCH FOR ENABLED 
oer CARRY NO TROUBLE 

i CARRY CLEAR = 


ERROR 
sRETURN TSSR CONTENTS 
sRETURN 


SEQ 0053 
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SEQ 0054 
| REWIND - POSITION TAPE (REWIND) COMMAND 


197 .SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 
%¢ 
2109 3 
sii? sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 
i 
} 211 : CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
2ii ’ TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
2114 : SSR TO SET IN THE TSSR 
2115 ’ 
2116 3 
2117 sCALLING SEQUENCE: 
2118 3 
2119 F 00 SOFT INIT 
2120 3 00 A WRITE ee 
2121 ’ JSR PC ,REWIND 
2122 3 
2123 s INPUT: 
2124 3 
2125 3 RS FIRST DEVICE UNIBUS ADDRESS 
2126 3 
2127 3 
2128 sOUTPUT 
2129 3 
$330 : RO THE CONTENTS OF R4 IS PASSED TO RO 
3 
1 : 
2134 011014 EWIND: : 
2135 011014 SAVREG »-AVE R1-RS UNTIL NEXT RETURN 
2136 011020 012794 011110 MOV @RWPACK ,R "GET PACKET ADORESS 
2137 011024 010465 000000 MOV R4, TSDBCRS) :SEND PACKET ADORESS TO EXECUTE 
2138 011030 012703 000550 MOV 0360., R3 sENOUGH TIME FOR 2400’ REEL TO REWIND 
2139 011034 004737 016250 108: JSR PC ,WALTF sWAIT FOR SSR TO SET 
2140 011040 103417 6cs 20% re WHEN SSR IS SET 
2141 011042 DELAY 250. WAIT FOR .25 SECONDS 
011042 012727 000372 MOV 250. ,CPC)« 
011046 000000 .WORD O 
011050 013727 002116 MOV LSDLY,CPC)« 
011054 000000 . WORD 
011056 005367 177772 DEC -6(PC) 
011062 001375 BNE .-4 
011064 005367 177756 DEC -22(PC) 
011070 001367 BNE .-20 
2142 011072 005303 DEC R3 sBUMP COUNTER DOWN 
2143 011074 001357 BNE 10% sKEEP GOING 
2144 011076 000241 cLCc ;CLEAR CARRY TO SET ERROR 
2145 011100 010400 20%: MOV R4,RO sPASS THE PACKET ADDRESS 
see 011102 000207 RTS PC sRETURN 
2149 011110 .*¢,+¢10>€177770 
2151 011110 RWPACK: 
2152 011110 102010 -WORD 102010 sPOSTION COMMAND (REWIND) 
2153 011112 000000 -WORD O sNOT USED 
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SEQ 0055 


CKRAM - COMPARE RAM TO 1/0 PACKET 
 eass \SBTTL CKRAM - COMPARE RAM TO I/0 PACKET 
| $tss . 
t 
«Sts }ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
| 2158 IMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 
3 
3161 LINPUT: 
3162 
3163 ; Ra ADDRESS OF THE COMMAND PACKET 
2164 ; RS FIRST DEVICE UNIBUS ADDRESS 
166 }OUTPUT: 
2167 3 
3168 ; CARRY SET - RAM MATCHES PACKET 
2169 ; CLR - RAM DOES NOT MATCH PACKET 
a 
2171 LIMPLICIT OUTPUT: 
3173 : THE TABLE RAMDATA IS FILLED WITH THE 
3174 : DATA HELD IN 
2175 : pANSI? Ie SCT 108. FOR PRAMPKT ROUTINE 
3 
2177 iSIDE EFFECTS: 
4 
2179 ; THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
3 
3181 a 
5182 
5183 011114 CKRAM: : 
3184 011114 SAVREG SAVE THE GENERAL REGISTERS 
3185 011120 012701 002242 MOV @RAMDATA.RI ;ADDRESS TO SAVE THE RAM DATA 
5186 011124 012702 000201 MOV —«s- @RMPKTBEG.R ‘BYTE ADORESS OF FIRST RAM DATA 
3187 011130 005003 CLR sR CLEAR THE ERROR FLAG 
3188 011132 004737 016336 JSR —s- PC, CHKTS WAIT FOR SSR 
5189 011136 112765 000000 000000 MOVE © @0., TSDBCRS) SET MAINT MODE 
5190 011144 004737 016336 108: JSR * CHKTS WAIT FOR SSR TO SET 
3191 011150 010265 000000 HOV —saR2 TSOBCRS) SELECT NEXT RAM ADORESS 
5192 011154 004737 016336 JSR «PCL CHKTS {WAIT FOR SSR TO SET 
3193 011160 116511 000000 MOVE: TSBACRS), CR1) READ THE RAM DATA 
3194 011164 122124 CHPB 0 (R1)+,(R4)* iCOMPARE TO EXPECTED 
5195 011166 001401 SEQ 208 SGRANCH IF OK 
3196 011170 3 INC = RB. SSET ERROR FLAG 
3197 011172 208: INC R2 }ADORESS OF NEXT RAM LOCATION 
2198 0111 27 000210 CHP «R82, @RMPKTEND ;REACHED END YET ? 
199 01 003761 BLE 108 BRANCH TILL ALL READ 
200 011202 005703 TST = RB AN ERROR FOUND ? 
3201 011204 001402 BEQ =s«308 tORANCH IF NOT 
3202 011206 000241 CLC CLEAR CARRY TO SHOW ERROR 
2203 011210 000401 BR 508 ;AND EXIT 
2204 011212 000261 308: SEC SHOW GOOD COMPARE 
3205 011214 012737 000010 002302 50%: MOV #§ 08.,RAMSIZ SETUP RAMSIZ FOR PRAMPKT ROUTINE 
2206 011222 7 RTS ‘RETURN 
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SEQ 0056 
CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 
| 2208 SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 
' 3¢ 
$310 ; 
| S3aa ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 
| 22te MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
: 
2214 LINPUT: 
: 
3216 : Ra ADDRESS OF THE CHARACTERISTICS DATA 
| 2217 : RS FIRST DEVICE UNIBUS ADDRESS 
3219 }OUTPUT: 
2220 
2221 ; CARRY SET - RAM MATCHES PACKET 
2222 ; CLR - RAM DOES NOT MATCH PACKET 
3 
2224 LIMPLICIT OUTPUT: 
3226 ; THE TABLE RAMDATA IS FILLED WITH THE 
2227 : DATA HELO IN 
2228 : PANSIZ Ts SET 10'S. OR 10. FOR PRAMPKT ROUTINE 
3 
2230 iSIDE EFFECTS: 
2232 : THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
2234 011224 eKRAM2: : 
3235 011224 SAVREG ‘SAVE THE GENERAL REGISTERS 
2236 011230 012701 002242 HOV @RAMDATA,R1 ADDRESS TO SAVE THE RAM DAT 
3237 011234 012702 000167 MOV @RMCHBEG | R2 OVIE AGORESS OF FIRST RAM DATA 
3238 011240 005003 CLR RB CLEAR THE ERROR FLAG 
3239 011242 004737 016336 JSR «PC. CHKTSSR WAIT FOR SSR 
5240 011246 112765 000000 000000 hove "TSDBCRS? SET MAINTENANCE MODE 
3241 011254 004737 016336 10s: JSR PC|CHKTS {WAIT FOR SSR TO SET 
011 010265 000000 MOVs R2., TSDBCRS) SELECT NEXT RAM ADORES 
5243 011264 004737 016336 JSR —s- PCCHKTS {WAIT FOR SSR TO SET 
01 116511 000000 MOVB so TS@ACRS), CR1) READ THE RAM DATA 
5245 011274 122124 CMPB 0s (R1)+, CRA)» ;COMPARE TO EXPECTED 
5246 011276 001401 SEQ 208 BRANCH IF OK 
3247 011300 3 re |OC«S SET ERROR FLAG 
3248 011302 208: INC R2 }ADDRESS OF NEXT RAM LOCATION 
3249 011304 012737 000010 002302 MOV 8. .RAMSIZ ASSUME EXTFEA NOT SET 
011312 005737 002226 TST EXTFEA 118 THE SOFTWARE EXTENDED FEATURES SET 
5251 011316 001407 BEQ so rR, IF NOT SET 
32 011320 012737 000012 002302 MOV «10. ,RAMSIZ Cet RAMSTE FOR EXTEND FEATURES 
3253 011326 020227 000200 CMP —sR2, @RMCHEND ;AT END OF EXTENDED BUFFER 
011 003750 BLE 108 ‘8R, IF NOT AT END YET 
3255 011334 000403 BR 27 ;AT END BRANCH 
011336 020227 000176 25: CMP -—S«R}2, @RMCHEND-2 }REACHED END YET ? 
7 011342 003744 LE 10 BRANCH TILL ALL READ 
011344 005703 278: TST 3 iWAS AN ERROR FOUND ? 
3259 011346 001402 308 ;BRANCH IF NOT 
011350 000241 CLC CLEAR CARRY TO SHOW ERROR 
3261 011352 000401 50s AND EXIT 
5262 011354 00026 308: : GOOD COMPARE 
3263 011356 000207 50s: RTS PC iRET 





L 
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| SEQ 0057 
CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
| 2265 \SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
° 
} 2267 j 
| 3368 ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV | 
| 3369 BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
| $370 ERROR PRINT ROUTINES. 
2271 3 | 
sere s INPUT: 
a 
32748 ; RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS | 
2275 ; R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
2276 : R2 EXPD ‘MESSAGE BUFFER ADDRESS 
sor s;OUTPUT: 
"i 
3279 : CARRY SET - MESSAGE BUFFERS MATCH 
2280 ; CLR -MESSAGE BUFFERS DON'T MATCH 
i 
2282 IMPLICIT OUTPUT: 
é 
3284 ; EXPMSG BUFFER IS SET TO EXPD DATA 
2285 : RECMSG BUFFER IS SET TO RECV DATA 
2286 : RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
2287 ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
a 
2289 ; 
3290 011360 KMSG: : 
2291 011360 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
3292 011364 010037 002304 MOV RO, RCVHIADD SAVE RECV HIGH ADDRESS 
3293 011370 010137 002306 MOV R1/RCVLOAD ;SAVE RECV LOW ADDRESS 
5294 011374 005737 003134 TST KTENABLE TESTING ABOVE 28K? 
3295 011400 001403 BEQ 108 i8R IF NO 
5296 011402 004737 017316 JSR PC, SETMAP }RETURN ADDRESS BIASED TO PAR6 IN RO 
3297 011406 010001 Mov RO;R1 GET RETURNED ADORESS BIASED TO PAR6 
3298 011410 005004 10$: CLR R4 ;}WORD IN BUFFER 
5299 011412 3 CLR 3 ‘ CLEAR ERROR SEEN FLAG 
5300 011414 010205 MOV R2,R5 GET EXPD BUFFER ADDRESS 
2301 011416 011264 002322 15$: MOV (R2).EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
2302 011422 011164 002466 MOV (R1)/RECMSGCR4) ;SAVE RECV FOR ERROR REPORT 
5303 011426 022221 CHP (R2)>,(RL)* iEXPD EQUAL RECV? 
5304 011430 001401 BEQ i8R T 
3305 011432 005203 INC R3 SET ERROR SEEN FLAG 
5306 011434 062704 000002 25%: ADD @2,R4 POINT TO NEXT WORD ADDRESS 
5307 011440 020427 000014 CHP R4.014 DONE FIRST 7 WORDS? 
5308 011444 003764 BLE 153 
11 032765 000200 000012 BIT 0X2. EXT, xST2CRS)sIS EXTENDED FEATURES SET IN EXPD? 
5310 011454 001403 BEQ i608 IF 
3313 011456 020427 000016 CHP R4, 016 {DONE EXTENDED FEATURES WORD? 
2312 011462 003755 BLE 153 ;0R IF 
5315 011464 005703 50s: ‘TST R3 ANY ERRORS SEEN? 
3314 011466 001402 BEQ 55¢ i8R IF NO 
2315 011470 000241 cLe ISET FAILURE 
5316 011472 000401 BR 60$ : 
2317 011474 000261 55$: SEC SET SUCCESS 
2318 011476 000207 60%: RTS PC ;RETURN 
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2341 

2342 011500 
2343 011500 
2344 011504 
2345 011510 
2346 011512 
2347 teint 


2 161 

2365 011616 
2366 011620 
2367 011622 
2368 011624 
2369 011626 
2370 011630 


020327 
003412 
012703 
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000144 
000144 
011632 
000001 


000004 
002304 
002306 
003134 


017316 


002322 
002466 


- COMPARE EXPD RECV MESSAGE BUFFERS 


-SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
° 
; ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 


sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
en PRINT ROUTINES. 


CARRY SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON'T MATCH 


IMPLICIT OUTPUT: 
3 EXPMSG 


V INPUT: 
: 0 RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
: Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
: RS EXPD MESSAGE BUFFER ADDRESS 

R3 NUMBER OF BYTES TO COMPARE 

F OUTPUT: 

i 

b 

Py 

° 


BUFFER IS SET TO EXPD DATA 


: RECHSG BUFFER IS SET TO RECV DATA 
; RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
; RCVLOADO SET TO LOW ORDER ADDRESS OF RECV 
éxnsGe: : 
SAVREG siSas6 § R1-RS UNTIL NEXT RETURN 
CMP «RS, @RECMSG-EXPM TS COUNT ABOVE MAX ALLOWED? 
BLE : IF NO 
MOV PRECNSG-EXPHSG.REcomD'” 


@DEBUGMSG ; 
@DEBUGMSG, -( SP) 
MOV $3 «-CSP) 


MOV 
TRAP  CSPNTF 


ADD 64,SP 

S$: MOV RO. RCVHIADD sSAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD 1 SAVE RECV LOW ADDRESS 
Ts KTENABLE s TESTING ABOVE 28K? 


10% 
JSR PC, SETMAP 
MOV RO,R1 
10%: CLR an sWORD IN BUFF 
CLR sCLEAR ERROR SEEN FLAG 
15%: MOVB tre 2), EXPMSG(R4) i SAVE EXPD FOR ERROR REPORT 
MOVB (R1),RECMSGCR4) ;SAVE RECV FOR ERROR REPORT 
CMPB ¢ Be NCRI De sEXPD soe RECV? 


BEQ 25% 3;6R IF 
INC RS sSET ERROR SEEN FLAG 
25%: ADD #1,R4 sPOINT TO NEXT BYTE 
CMP R4,R3 sDONE ALL BYTES? 
BGE 50% 3BR IF YES 
BR 15% 300 NEXT BYTE 
50%: TST 5 sANY ERRORS SEEN? 
BEQ 55% :BR 
CLC iSET FAILURE 
BR 60$ F 
55%: SEC 3SET SUCCESS 
608: RTS PC ;RETURN 


IF NO 
;RETURN ADORESS BIASED TO PAR6 IN RO 
sGET og nts ee BIASED TO PAR6 


SEQ 0058 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


2372 011632 120 122 117 DEBUGMSG: .ASCIZ Yo papell INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' 980. 
2373 011722 045 116 045 FERCM: .ASCII /sNSA 

2374 0117335 040 040 124 ERCM: -ASCIZ / TSSR “ERROR CODE REC'D = 

2375 011766 056 056 O56 SIMSG: .ASCIZ /. AFTER DOING SOFT INIT? 

e378 012021 124 105 123. TINERR: ‘a /TEST: 2.47 


| 
| 
| 
2378 ¢ 
2379 : : 
2380 sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 


2381 3 
2382 s INPUT: 
2383 ’ 
tae ’ R1 CONTENTS OF TSSR AT ERROR 
3 
see sSIDE EFFECTS: 
3 
2388 3 EXECUTES DROP UNIT TO CEASE TESTING 
2389 3 
2390 4 
2391 
2392 012034 BGNMSG SFIMSG 
012034 SFIMSG: : 
2393 012034 004737 006024 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2394 012040 004737 017202 JSR PC .CKDOROP sDROP UNIT, IF ALLOWED 
2395 012044 NOMSG 
012044 L10003: 
23 012044 104423 TRAP C$mMSG 
2397 3¢ 
2398 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
444 ;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
3 
i s INPUTS: 
2402 
3 3 R1 TSSR CONTENTS 
3 Ra ADDRESS OF COMMAND PACKET 
2405 3 
ge 
2407 
2408 012046 BGNMSG PKTSSR 
012046 PKTSSR:: 
2409 012046 004737 006024 JSR PC,.PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2410 012052 012700 000004 MOV @4,RO0 3NO. OF WORDS IN PACKET 
2411 012056 004737 007370 JSR PC, PRIPKT ‘PRINT THE CONTENTS OF COMMAND PACKET 


12062 
012062 110004: 
012062 104423 TRAP C$MSG 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


SEQ 0060 


104423 TRAP C$MSG 


2414 
2415 SPRINT ROUTINE TO PRINT THE CONTENTS - 
esis “asa AND A GET STATUS COMMAND PACKET | 
18 ;INPUTS: 
2419 3 
2420 F RL TSSR CONTENTS 
ssi ’ RA ADDRESS OF COMMAND PACKET 
ge 
2423 012064 BGNMSG PKTGETS 
012064 PKTGETS:: 
2424 012064 004737 006024 JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2425 012070 012700 000002 MOV #2,RO0 sNO. OF WORDS IN GET STATUS PACKET 
2426 012074 004737 007370 JSR PC,PRIPKT iPRINT THE CONTENTS OF COMMAND PACKET 
2427 012100 ENOMSG 
012100 L10005: 
5 012100 104423 TRAP C$mMSG 
e423 3¢ 
t5 sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 
3 
2431 s INPUTS: 
2432 3 Ri TSSR CONTENTS 
ats} 3 R4 ADDRESS OF COMMAND PACKET 
ge 
2435 012102 BGNMSG SFFMSG 
012102 SFFMSG: : 
2436 012102 004737 006024 JSR PC,.PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2437 012106 ENDOMSG 
012106 L10006: 
012106 104423 TRAP C$mMSG 
at -SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
3¢ 
2440 sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
2441 sBUFFER FOR ERROR REPORTS 
2442 F 
2443 s INPUTS: 
2444 $ 
2445 3 R1 CONTENTS OF TSSR 
2446 3 R2 LOW ORDER MESSAGE BUFFER 
2447 3 R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
see 3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
3-7 
2450 012110 BGNMSG PKTMES 
012110 PKTMES: : 
2451 012110 004737 006024 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
2452 012114 010200 MOV R2,RO sLOW ORDER ADDRESS 
2453 012116 010301 MOV R3,R1 sHIGH ORDER ADDRESS 
2454 012120 004737 014242 JSR PC,.PRMESS sPRINT THE MESSAGE BUFFER 
2455 012124 ENOMSG 
012124 L10007: 
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SEQ 0061 
ADDSSR - PRINT TEST ADDRESS AND TSSR 
2457 .SBTTL ADDOSSR - PRINT TEST ADDRESS AN® TSSR | 
2459 }PRINT ROUTINE TO PRINT THE CONTENTS OF 
2460 sTSSR AND A MEMORY TEST ADDRESS 
Saco ; INPUTS: 
2463 ’ 
2464 , RS FIRST DEVICE UNIBUS ADDRESS 
2465 ; ERRHI HIGH ORDER MEMORY TEST ADDRESS 
2466 , ERRLO LOW ORDER MEMORY TEST ADDRESS 
246 ge 
2468 
2469 012126 BGNMSG ADDSSR 
012126 ADDSSR: : 
2470 012126 004737 010274 JSR PC,PRITADD sPRINT MEMORY TEST ADDRESS 
2471 012132 016501 000002 MOV TSSRC(RS),R1 3GET CURRENT 
2472 012136 004737 006024 JSR PC, PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2473 012142 NOMSG 
012142 L10010: 
son 012142 104423 TRAP C#MSG 
2475 .SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
3¢ 
2477 
2478 PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
2480 } IMPLICIT INPUTS: 
2482 ; EXPHSG - EXPECTED MESSAGE BUFFER 
2483 ; RECMSG - RECEIVED MESSAGE BUFFER 
2484 ; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
248s ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
2487 012144 . BGNMSG MSGEXP 
012144 MSGEXP: : 
2488 012144 012700 000007 MOV #7,RO ASSUME NO EXT FEATURES 
2489 012150 005737 002226 TST EXTFEA ‘EXT FEATURES SET? 
2490 012154 001402 BEQ S$ ;8R IF NO 
2491 012156 012700 000010 MOV 28. ,RO EXT FEATURE BUFFER IS 8 WORDS 
2492 012162 004737 014552 S$: JSR PC. PRMSGEXP SPRINT EXPD/RECV MESSAGE BUFFERS 
—— oisiee L10011 


012166 : 
012166 104423 TRAP C$MSG 








) 
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SEQ 0062 
FIFEXP - PRINT FIFO EXP/RECV DATA 
2495 .SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
rts 2° | 
3 
2498 ;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
y 
2500 , Ri - BYTE COUNT 
2501 3 
2502 sIMPLICIT INPUTS: 
250 3 
2504 : EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
2505 , RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
2506 ge 
2507 012170 BGNMSG FIFEXP 
012170 FIFEXP: : 
2508 012170 PRINTX @FIFIMSG,R1 ;PRINT BYTES TRANSFERRED 
012170 010146 MOV » 
012172 012746 012242 MOV OF IF MSG, -(SP) 
012176 012746 000002 MOV @2,-(SP) 
012202 ©10600 MOV SP<R 
012204 104415 TRAP CSPNTX 
012206 062706 000006 ADD 66.SP 
2509 012212 PRINTX OF IF2MSG :PRINT HEADER MSG 
012212 012746 012311 MOV OF IFQMSG, -(SP) 
012216 012746 000001 MOV #1, -(SP) 
012222 01 v 
012224 104415 TRAP C$PNTX 
012226 062706 000004 ADD 64,SP 
2510 012232 010100 MOV R1.RO :GET BYTE COUNT 
2511 012234 004737 015122 JSR PC. PRBYTEXP ;PRINT FIFO BYTES IN ERROR 
2512 012240 ENOMSG 
012240 L10012: \ 
012240 104423 RAP C$MSG 
2513 012242 045 116 045 FIFIMSG: -ASCIZ ‘sNSA NUMBER OF BYTES TRANSFERRED = sD2‘ 
2314 012311 045 116 045 FIF2MSG: bath “ASCIZ ‘SNA FIFO DATA BYTES IN ERROR:’ 





| 

| 

| TSV3 - GLOBAL AREAS MACRO YOS.02 Monday 16-Sep-85 10:39 Page 54 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


SEQ 0063 


ze? .SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
s¢ 
2519 3 
30 sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
: 
sa28 F 
sae5 sIMPLICIT INPUTS: 
’ 
2525 : EXPMSG - EXPECTED MESSAGE BUFFER 
2526 : RECMSG - RECEIVED MESSAGE BUFFER 
2527 3 RCVHIADD - RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
saee 3 RCVL RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
t- 
2530 012350 BGNMSG MSGSTAT 
012350 MSGSTAT: : 
2531 012350 012701 012412 MOV @STATCOD.R1 sASCII ADDRESS TABLE 
2532 012354 012100 10%: MOV CR1)+,RO sD0NE ALL MSG LINES? 
2533 012356 001410 BEQ 20% 78R IF YES 
2534 012360 PRINTX RO sPRINT STATUS BIT NAMES 
012360 010046 MOV RO, -CSP) 
012362 012746 000001 MOV #1,-CSP) 
012366 010600 MOV SP RO 
012370 104415 TRAP  CSPNTX. 
012372 062706 000004 ADD @4,SP 
2535 012376 000766 BR 10% 300 ANOTHER MSG LINE 
2536 012400 012700 000012 208: MOV #10. ,.RO s;NUMBER OF WORDS IN A READ STATUS BUFFER 
2537 012404 004737 014552 JSR PC, PRMSGEXP ‘PRINT EXPD/RECV MESSAGE BUFFERS 
2538 012410 ENOMSG 
012410 L10013: 
- 012410 104423 TRAP CémMSG 
2540 012412 012430 012472 012563 STATCOD: WORD 1%,2¢,3%.4%.5%.68,0 
2541 012430 11 S 1%:.ASCIZ ‘sSNSA Tape igneale in Word :' 
2542 012472 045 116 045 2¢:.ASCIZ ‘sNSA PARERR<15> IEO0T <1i2> IFMK <9> IRDY<6> IRWD<2>' 
2543 012563 045 116 04 os 'SNBA IRESV2<14> IIDENT<11> IHER <8> IONL<S> IFBY<1>° 
2544 0 045 116 045 4%:.ASCIZ ‘sNSA IRESVi<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>' 
2545 012745 045 116 045 5%:.ASCI ‘SNA Tepe Bus Signals in ‘ 


Word #9: 
SNA OATMIS<7> ILW<6> OUTRDY<S> INRDY<4>' 


z 
ons 013007 045 116 045 68:. aeuse 
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MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


2550 .SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
3¢ 
2552 3 : 
2353 sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
S 
2335 sIMPLICIT INPUTS: 
2557 ' EXPMSG - EXPECTED MESSAGE BUFFER 
2558 , RECMSG - RECEIVED MESSAGE BUFFER 
2559 : RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
2560 , RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS 
t- 

2562 013064 @GNMSG MSGLOOP 

013064 MSGLOOP: : 
2563 013064 012701 013126 HOV @LOOPCOD.R1 sASCII ADDRESS TABLE 
2564 013070 012100 10%: MOV (R1)+,RO sD00NE ALL MSG LINES? 
2565 013072 001410 208 :8R IF YES 
2566 013074 PRINTX RO PRINT STATUS BIT NAMES 

013074 C1 MOV RO, -(SP) 

013076 012746 000001 #1,-(SP) 

013102 01 v SP.RO 

013104 104415 TRAP CSPNTX 

013106 062706 000004 ADD 64,SP 
2567 013112 000766 BR 108 300 ANOTHER MSG LINE 
2568 013114 012700 000012 20%: MOV #10. RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
2569 013120 004737 014552 JSR PC .PRMSGEXP PRINT EXPD/RECV MESSAGE BUFFERS 
2570 013124 NOMSG 

3126 110014; 

013124 104423 TRAP  C8MSG 

2572 013126 013146 013221 013320 : WORD 18, 2. 38, a6. 5¢.6$.7%.0 


‘SNA 
‘Sea PARERR: 5> IRESV2<14> IRESV1<13>° 
2575 013320 $ ‘'SNSA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV = >ICER <10>' 
2576 013417 045 116 045 4¢:.ASCIZ ‘sSNSA IWFM =>IFMK<09> IEDIT=>IHER <08> IFAD =*=>ISPEED<07>' 
‘ ‘SNSA ITADO=>IRDY<06> ITADi=>IONL <05> IERASE=>ILDP <04>°‘ 
‘SSA IREW =>IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <Oi1>‘ 


2579 013714 045 116 045 7%:.ASCIZ 
2580 








| TSV3 - GLOBAL AREAS MACRO YOS.02 Monday 16-Sep-85 10:39 Page 56 


| SEQ 0065 
| MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
2382 .SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER | 
258 3° | 
2584 ] 
2385 SPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
7 
2587 
2388 IMPLICIT INPUTS: 
2590 ; EXPMSG - EXPECTED MESSAGE BUFFER 
259 : RECMSG - RECEIVED MESSAGE BUFFER 
: RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
$395 013742 , BGNISG MSGSUB 
013742 MSGSUB: : 
018742 012700 000012 MOVs: @10., RO :SIZE OF WRITE SUBSYSTEM BUFFER 
013746 004737 014552 JSR __—- PC, PRMSGEXP {PRINT EXPD/RECV MESSAGE BUFFERS 
2598 013752 
013752 110015: 
ass 018752 100828 TRAP —COMSG 
2600 .SBTTL MEMADD - PRINT MEMORY ADORESS DATA ERROR 
3¢ 
3603 {PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
2605 }IMPLICIT INPUTS: 
sees ; ERRHI- HIGH ORDER ADORESS 
2608 ; ERRLO - MEMORY ERROR LOW ORDER ADORESS 
2609 ; EXP - EXPECTED DATA 
2610 ; RECV  - RECEIVED DATA 
seis 013734 , BGNSG MEMADO 
1 MEMADD: : 
2613 013754 010160 USR PRIADD :PRINT MEMORY ADORESS IN ERROR 
seis o13s760 18701 Ones HOV EXéD.R iGET EXPD DA 
2615 015764 013702 002254 HOV iGET RECEIVED DATA 
2616 0137 007742 JSR RECY RE sPRINT EXPD/RECV 
2617 013774 ENOMSG 
013774 10016: 
013774 104423 TRAP —CSNSG 





34 
2635 013776 
36 013776 
7 014002 
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PRAMPKT - PRINT RAM AND PACKET DATA 


€12701 
005002 
122124 
001005 


000436 
116105 
116403 
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002242 


177777 
177777 


177400 
177777 
177777 


002232 
002234 
014156 
000005 
000014 


002302 
002302 


000010 
002302 


116 


’ S INPUTS : 


-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


;PRINT ROUTINE TO DISPLAY ym DATA 
— THE RAM DATA DOES NOT MATCH 


: 
R4 
VIMPLICIT INPUTS: 
RAMDATA 


RAMSIZ 


POINTER TO COMMAND PACKET 


DATA AS READ FROM THE RAM 
NUMBER BYTES IN 


PACKET 


OF 
IF RAMSIZ=0 THEN DEFAULT TO 8. 


LIMPLICIT OUTPUTS: 


PRAMPKT : 


78: 


002234 
002232 


10$: 


045 RAMASC: 


RAMSIZ SET TO 0 
SAVREG 

MOV @RAMDATA,R1 

CLR R2 

CMPB CR1)+ CRO)» 

BNE 

FORCERROR 7$,NOTSSR 
MOVB “1CR1}, RS 

MOVB - icR 4) ° R3 

XOR R5,R3 

BIC Si 47800, R3 

MOVB -1(R1),RECV 

MOVB a3CR42,€ EXPD 
PRINTB Anas R2,RECV,EXPD,R3 
MOV Pp) 

MOV ms -CSE (SP) 

MOV RECV, -(SP) 

MOV R2, -(SP) 

MOV RaAMASC -(SP) 

MOV 05, -(SP) 

MOV 

TRAP C$PNTB 

ADD $14,SP 

INC R 

TST RAMSIZ 

BEQ 158% 

CMP R2,RAMSIZ 

BLE 5§ 

BR 25% 

CMP R2,08 

BLT 5$ 

CLR RAMSIZ 

RTS 

.ASCIZ ‘SNSA BYTE: SD28A RAM: 
EVEN 


sSAVE R1-RS UNTIL NEXT RETURN 
sDATA FROM THE RAM 

VINIT BYTE NUMBER 

3; COMPARE yt Ma RECEIVED 
3;68R IF NO MATCH 


; 830 

3GET RECV RAM DATA 
:GET EXPD PACKET DATA 
sXOR EXPD/RECV 

;LOW BYTE ONLY 

;GET RECEIVED RAM DATA 
;GET EXPECTED RAM DATA 


sUPDATE BYTE COUNT 
sDEFAULT TO 8.? 
;BR IF YES 

sDONE ALL BYTES? 
- IF NO 


:DONE a eat NUMBER OF BYTES? 


8 
iSET DEFAULT RAMSIZ 
sRETURN 


SO38A Packet: 038A XOR:#03' 


SEQ 0066 
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4420 
2700 014465 
2701 014523 
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003134 


017316 


014523 
000003 


116 
116 
116 


000012 


045 


- PRINT CONTENTS OF MESSAGE BUFFER 


-SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


i THIS ene PRINTS THE CONTENTS OF 
‘ede OR 6 WORD MESSAGE BUFFER RETURNED BY THE TSV-0S. 


tINPUT: 
RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENAGLE FLAG IS CLEAR 
; THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


PRMESS: SAVREG sSAVE THE REGISTERS 

MOV RO.RS sSAVE LOW ORDER 

TST KTENABLE sADDRESS ABOVE 28K? 

BNE 108 i6R IF YES 

CLR Ri :SET HIGH ORDER ADDRESS TO 0 
10%: MOV R1,R3 sSAVE HIGH ORDER ADDRESS 

ROL RO :SHIFT BIT1S5 TO C BIT 

ROL R1 :SHIFT TO HIGH ORPZR FOR PRINTOUT 

PRINTX @PROASC,R1.RS {PRINT MESSAGE GUFFER ADDRESS 

MOV R hon SP) 

MOV 1,-(SP) 

MOV @PROASC, -(SP) 

MOV @3,-(SP) 

MOV SP -RO 

TRAP C$PNTX 

610,SP 

PRINTX @PRIASC :PRINT HEADER FOR CONTENTS 

MOV @PRIASC, -(SP) 

MOV 1,-(SP) 

MOV RO 

TRAP C$PNTX 

ADO 64,SP 

CLR R4 :NUMBER OF THE NEXT WORD 

MOV RS.R1 sCOPY LOW ORDER ADDRESS 

MOV 3:R :COPY HIGH ORDER ADDRESS 

BEQ 208 :8R IF NOT ABOVE 

JSR PC, SETMAP ;SETUP PAR ADDRESS IN RO 

MOV RO.RS :GET PAR FORIIAT ADDRESS ABOVE 28K 
208: PRINTX @PRASC.R4,(R5)+ ;PRINT THE CONTENTS OF MEMORY BUFFER 

MOV (RS), -(SP) 

MOV R4, -(SP) 

MOV @PRASC, -(SP) 

MOV @3,-(SP) 

MOV SP ‘>RO 

TRAP C8PNTX 

ADO #10,SP 

INC R4 :NUMBER OF THE NEXT 

CMP R4,07 1 DONE ALL YET ? 

8GT 50% BRANCH IF ALL 

BLT 208 jPR FIRST 7? WORDS 

BIT @X2.EXTF .XST2CR3 i FEATUTES ON ? 

BNE 208 EXTENDED STATUS WORD 


-ASCIZ 


PRASC: .ASCIZ 


508: RTS PC 
PROASC : .ASCIZ SNA Message pubfer Address = = #01805' 
: 


* SNA Message utter an pintentas’ 


WordsD1sA 


SEQ 0067 
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PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


SEQ 0068 


2703 EVEN 
2704 “SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
| 
| 2706 rROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
| 2707 RO NUMBER OF WORDS IN BUFFER 
2708 IMPLICIT INPUTS: 
2709 : PMSG - EXPECTED MESSAGE BUFFER 
2710 : Recht - RECEIVED MESSAGE BUFFER 
2711 , RCVHIADG- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
2712 : RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS 
2713 . 
2714 014552 PRMSGEXP: : 
2715 014552 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2716 014556 MOV AVE NUMBER OF WORDS 
2717 014560 013700 002306 MOV RCVLOADD RO ;GET RECV LOW ADORESS 
2718 014564 MOV RA Low 
2719 014566 013701 002304 MOV RCVHIADD,.R1 ;GET RECV HIGH ADDRESS 
2720 014572 006100 ROL RO ; SHIFT BIT15 TO C BIT 
2721 014574 C06101 ROL R1 :SHIFT TO HIGH ORDER FOR PRINTOUT 
2722 014576 PRINTX @PRMSGO,R1,R4 PRINT MESSAGE BUFFER ADDRESS 
014576 01 MOV R4,-(SP) 
01 010146 7 MOV R1. -(SP) 
014602 012746 01+732 MOV @PRMSGO, -( SP) 
014606 012746 MOV @3,-(SP) 
01 SP; RO 
014614 104415 TRAP CSPNTX 
014616 062706 000010 ADD #10,SP 
2723 014622 PRINTX @PRMSG1 ;PRINT HEADER FOR CONTENTS 
014622 012746 014777 MOV @PRMSG1, -(SP) 
014626 012746 000001 MOV #1, -(SP) 
014632 010600 v 
014634 104415 TRAP CSPNTX 
014636 062706 000004 ADO 64,SP 
2724 014642 005004 CLR R4 ;NUMBER OF THE CURRENT WORD 
2725 014644 012701 002322 MOV @EXPMSG Ri iGET EXD BUFFER ADDRESS 
2726 014650 012702 002466 MOV @RECHSG .R2 ;GET RECV BUFFER ADDRESS 
2727 014654 011100 208: MOV (R1),RO GET EXPD 
2728 014656 011203 MOV cR2) R3 ;GET RECV 
2729 014660 XOR ;XOR EXPD/RECV 
2730 014670 PRINTX Seansce R4,(R1)+.(R2)+,R3 
014670 010346 MOV 
014672 MOV (R2)+, -(SP) 
014674 012146 MOV (R1)+.-(SP) 
014676 010446 MOV -¢§P 
014700 012746 015035 MOV @PRMSG2, -( SP) 
014704 012746 000005 MOV 05, -(SP) 
014710 01 v 
14712 104415 TRAP CSPNTX 
014714 062706 000014 ADO 614,SP 
2731 014720 005204 INC R4 ;NUMBER OF THE NEXT 
2732 014722 020405 CMP R4,RS ;DONE ALL YET? 
2733 014724 002001 8GE 50% :BR IF YES 
2734 014726 000752 BR 20% 100 ANOTHER 
2735 014730 000207 50%: RTS PC Re TURN 
2736 014732 045 116 045 PRMSGO: .ASCIZ ‘SNSA Message Buffer Address = ,801805° 
2737 014777 04s 116 045 PRMSG1: .ASCIZ ‘SNSA Mess aeutter Contents 
2738 015035 04 116 045 PRHSG2: [ASCIZ ‘sNSA WOR EXPD: NOGA RECV: S068A XOR: #06‘ 





pat 
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PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


015122 
015126 


110337 
122122 


020405 
002001 
000717 
013746 
012746 
012746 
010600 


MACRO YOS.02 Monday 16-Sep-85 10:39 Page 60 


002320 


002322 
002466 


177400 
015470 


177400 
015472 


002320 
002320 


015472 
015470 


015336 
000005 


000014 


002320 
015423 
000002 


000010 


-EVEN 
-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


¥ 


; ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 


, ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE 70 SCREEN SPACE 
Q 
, - RO - NUMBER OF BYTES IN BUFFER 
: 
sIMPLICIT INPUTS: 
Q 
; EXPMSG - EXPECTED MESSAGE BUFFER 
; RECMSG - RECEIVED MESSAGE BUFFER 
t- 
PRBYTEXP: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO.RS ;SAVE NUMBER OF BYTES 
CLR PRMNO sINIT ERROR COUNT 
CLR R4 ;NUMBER OF THE CURRENT BYTE 
MOV GEXPMSG,R1 ;GET EXPD BUFFER ADDRESS 
MOV @RECMSG,.R2 ;GET RECV BUFFER ADDRESS 
208: MOVB (R1),RO :GET EXPD BYTE 
BIC @tC<377>,RO ;CLEAR UPPER BYTE 
MOVB = RO, PRBEX xP SAVE FOR ERROR REPORT 
mMOvB e-« CR2 ;GET RECV BYTE 
BIC $92 2597> R3 ;CLEAR UPPER BYTE 
MOVE  R3,PRBREC ;FOR ERROR REPORT 
XOR RO.R3 :XOR EXPD/RECV 
MPB Os (Ri)+, CR2)+ sEXPD = RECV? 
BEQ 308% ;6R IF YES 
INC PRMNO ;UPDATE ERROR COUNT 
cH PRMNO, 08. PRINTED 8? 


30% 3BR IF YE 
278: — eres R4,PRBEXP ,PRBREC RS 


MOV PROREE (SP) 
MOV PREEXB  -(SP) 


MOV sPROMSG -(SP) 
MOV @5,-(SP) 
MOV *RO 
TRAP CSPNTX 
ADD 614,SP 
FORCEXIT 50% ;880 
te BR 35% ;80D 
FORCERROR 27%,NOTSSR ;880 
35%: ;980 
INC R4 ;NUMBER OF THE NEXT 
CMP R4,RS ;DONE ALL YET? 
BGE 50% ;BR IF YES 


8 208 3:00 ANOTHER 
50$:  PRINTX @PRBTOT,PRMNO ;PRINT TOTAL ERROR COUNT 
MOV PRMNO, - SP) 
MOV @PRBTOT, -(SP) 
MOV @2,-C(SP) 
MOV SP .RO 


SEQ 0069 
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| PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


015326 104415 TRAP 
015330 062706 ADD 
2784 015334 000207 RTS 


2785 
2786 0153536 045 116 045 PRBMSG: 


.ASCIZ 
2787 015423 045 116 045 PRBTOT: .ASCIZ 
2788 EVEN 
2789 015470 000000 PRBEXP: .WORD 
2790 015472 000000 PRBREC: .WORD 
2791 SBTTL 
2792 s¢ 
2793 : 
2794 sPRINT ROUTINE 
2795 3 
2796 3 INPUTS: 


Ld 
a) 
0 
~ 
eo 


2798 3 R1 
2799 3 Re 
2800 3 
2801 3- 
2802 
2803 015474 BGNMSG 
015474 EXPREC: 
015474 004737 007742 JSR 
2805 015500 ENOMSG 
015500 L10017 
015500 104423 TRAP 
2806 .SBTTL 
2807 3¢ 
2808 : 
2809 sPRINT ROUTINE 
2810 8 
28611 3 
28612 s INPUTS: 
28613 3 
2814 3 R1 
2815 : R2 
2616 3 
2617 3° 
2618 
28619 015502 8 
015502 EXPBREC: : 
2820 015502 004737 007612 JSR 
2621 015506 ENOMSG 
015506 10020 
015506 104423 TRAP 
2622 
2823 
2824 .SBTTL 
2825 3¢ 
2826 
2827 
2828 3 
2829 s INPUTS: 
2830 : 
2631 ; R4 


2832 3 
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CSPNTX 


#6 ,SP 
PC sRETURN 


‘SNSA =6BYTE O8D28A_ EXPD: SO36A RECV: SO38A 
‘SNSA NUMBER OF BYTES IN ERROR = #02’ 


t+) sEXPO 
0 sRECV 
EXPREC - PRINT EXPD/RECV WORD DATA 


XOR: #03° 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 


PC ,PRIXOR sPRINT THE DATA 


C$MSG 
EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 

PC .PRIBXOR sPRINT THE DATA 
C$MSG 

RAMERR - PRINT RAM AND PACKET DATA 


;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 


SEQ 0070 
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- PRINT RAM AND PACKET DATA 


tity 
Starts 004737 013776 


015514 
015514 104423 


015516 
015516 
015516 004737 010274 


015522 004737 013776 
3 015526 


015526 
015526 104423 


MACRO YOS.02 Monday 16-Sep-85 10:39 Page 60-2 


SEQ 0071 


IMPLICIT INPUTS: 


RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ*0 THEN DEFAULT TO 8. 


IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


GNMSG RAMERR 


8 

RAMERR: : 
Js PC, PRAMPKT sPRINT RAM/PACKET DATA 
ENOMSG 


TRAP C$MSG 
-SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


L10021: 


3¢ 


;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


} INPUTS: 
; R4 POINTER TO COMMAND PACKET 
}IMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 
ERRHI HISH ORDER TEST ADDRESS 
ERRLO LOW ORDER TEST ADDRESS 


IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


BGNMSG RAMTADD 
anion | 


SR PC ,PRITADD sPRINT TEST ADORESS 
JSR PC ,,PRAMPKT sPRINT RAM/PACKET DATA 
ENOMSG 
110022: 
TRAP CsmMSG 


-SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 


3¢ 
;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


FINPUTS: 
R1 RECEIVED DATA 
: R2 EXPECTED DATA 
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- PRINT RAM EXPD/RECV DATA 


RAMEXP 


884 
885 


goes 
2887 015530 
015530 
2888 0155350 
2889 015534 
2890 015540 
2691 015544 
2892 015550 
015550 
015550 


25 
2926 015700 
015700 
2927 015700 
2928 015702 


015600 
000001 


000004 
007742 


116 


010246 
042702 177400 


045 
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: R4 
ge 
SG 
RAMEXP: : 
BIC 
JSR 
JSR 
ENOMSG 
L10023: 
TRAP 
.SBTTL 


3¢ 


;PRINT ROUTINE 
sAND TIMER A,B 


a 
s INPUTS: 
i 
3 R1 
: Re 
i- 
GNMSG 
TIMEXP: : 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
JSR 
ENOMSG 
L10024: 
TRAP 
TIMSGO: .ASCIZ 
.EVEN 
. SBTTL 


3¢ 
;PRINT ROUTINE 
3 ‘ 

s INPUTS: 


Ri 
Re 


BGNMSG 
BADSSR: : 


MOV 
BIC 
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: _ SEQ 0072 


CONTROLLER RAM ADDRESS 


RAMEXP 

@tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
@tC<377>,R2 sSAVE _EXPD RAM DATA BYTE 
PC ,PRIRAM sPRINT THE RAM ADDRESS 
PC ,PRIXOR sPRINT THE DATA 

C$MSG 


TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 
HEADER MESSAGE 


RECEIVED DATA 
EXPECTED DATA 
TIMEXP 


@TIMSGO ;PRINT HEADER 
@TIMSGO, -(SP) 

#1,-C(SP) 
SP ,RO 
C$PNTX 
64,SP 

PC; PRIXOR 


sPRINT THE DATA 


C$MSG 
‘sNSA TIMER A STATUS IS IN BiT 38NSA TIMER B STATUS IS IN BIT 2' 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


FOR TSSR ERRORS ON DATA TRANSFERS 


CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 


BADSSR 
R2,-(SP) ;SAVE DATA TRANSFERRED 
#177400,R2 ;GET JUST ONE BYTE 
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| 
! 
| 
‘mi 
| SEQ 00735 
| BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS | 
2929 PRINTB #XFERASC,.R2 | 
818788 010246 MOV eres): i 
015710 012746 015740 MOV @XFERASC, -(SP) ! 
015714 012746 000002 MOV #2,-CSP) 
015720 010600 MOV SP ,RO 
015722 104414 TRAP CSPNTB 
015724 062706 000006 ADD 06, 
2930 015730 012602 MOV (SP )+,R2 sRESTORE R2 
2931 015732 004737 006024 JSR PC,.PRITSSR sDECODE TSSR CONTENTS 
2932 015736 ENOMSG 
015736 L10025: 


015736 RAP C$MSG 
2933 015740 045 116 04S XFERASC: -ASCIZ ‘SNSA Date Transferred = #03' 





! 
| 


| TSV3 - GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


: 


sepugagaeuuuunammoueseebeess 


2969 015774 


2970 015774 

2971 016000 012765 000000 

2972 016006 004737 01625) 

2973 016012 016500 000002 

2974 016016 010004 

2975 016020 042704 176277 
002200 


000002 
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.SBTTL GLOBAL SUBROUTINES SECTION 
: * THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
3 THAT ARE USED IN MORE THAN ONE TEST. 
’ -SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
- 
} ROUTINE TO 00 A SOFT INITIALIZE OF THE CONTROLLER 
ING INTO THE TSSR REGISTER. AFTER THE INIT, 
sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
iDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
LINPUTS: 
: RS 
;OUTPUTS: 
RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 
CALLING SEQUENCE: 


MOV @ADDRESS RS 


ADDRESS OF FIRST REGISTER 


JSR PC ,SOF INIT 

bcs CONTINUE ‘ 

ERROF sREPORT FATAL ERROR 
SOFINIT: : 

SAVREG : SAVE THE REGISTERS 

MOV #0, TSSRCRS) eo. THE INIT. 

JSR PC ,WAITF WAIT 


FOR SSR 

MOV TSSRCRS),RO iGET THE TSSR REGISTER 
MOV RO.R4 TSSR CONTENTS 

BIC er <HIADDR?OFL>, Ra 


BIS @SSR!INBA,R4 sR4 HAS EXPECTED CONTENTS 

CMP R4,RO sONLY oe ek yes SET ? 

BEQ S$ sBRANCH_IF 

cLc sCLEAR THE CARRY FOR ERROR 
10% 3GO0 TO EXIT 


sSET THE CARRY BIT 
sRETURN TO CALLER 


10%: RTS PC 


SEQ 0074 
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CHKAMB - CHECK TSSR FOR AMBIGUITY 


SEQ 0075 


1 
3383 .SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 
3385 , 
2988 ‘THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
| 2989 FOR AMBIGUITY 
2990 
2991 }INPUT: 
2992 3 
2993 3 RO CONTENTS OF TSSR 
2994 3 
2995 sOUTPUT: 
2996 3 
2997 3 RO CONTENTS OF TSSR 
2998 3 
ta] 3 CARRY SET - NO AMBIGUITY 
: CLR - AMBIGUOUS CONTENTS 
3001 3 
3002 s- 
3003 : 
3004 016044 CHKAMB : 
3005 016044 SAVREG © ;SAVE THE GENERAL REGISTERS 
3006 016050 010004 MOV RO,R4 sCONTENTS OF TSSR 
3007 016052 032700 100000 BIT @SC,RO sIS BIT 15 SET ? 
3008 016056 001004 BNE Ss sBRANCH IF YES 
016060 032700 174077 BIT @tC<NBA!OFL!SSR!HIADDR> RO ANY OTHER BITS SET ? 
3010 016064 001023 BNE 40% sMUST AN € 
3011 016066 000424 BR 45$ ;RETURN a SUCCESS 
3012 016070 032700 000200 S$: BIT + + RO iIS READY T ? 
3013 016074 001011 BNE 10% sBRANCH IF READY Bit IS SET 
3014 016076 032700 000040 BIT @6ITS.RO 31S FATAL — BIT 
3015 016102 001414 BEQ sERROR IF NO 
3016 016104 042704 177761 BIC @tCTERCLS 24 iCLEAR ALL NUT TERMINATION CODE 
3017 016110 020427 000016 CMP R4,016 L THREE BITS MUST BE SET 
30186 016114 001007 BNE 40$ ERROR IF NOT SET 
3019 016116 000410 BR 45$ OK IF ALL ARE 
3020 016120 032700 000040 108: BIT @BITS,RO eS FATAL ERROR BIT SET ? 
3021 016124 001405 BEQ 453 sERROR IF BIT IS SET WITH SSR 
3022 016126 032700 000006 BIT @#8IT2!BIT1,RO 13 be oe A FUNCTION REJECT 
3023 016132 001002 BNE 45% TSSR IS 
3024 016134 000241 408; cLCc ate reu0Us CONTENTS 
3025 016136 000401 BR 50% 
3026 016140 000261 45$: SEC sSHOW SUCCESS - NO AMBIGUITY 
3027 016142 000207 50%: RTS PC sRETURN TO CALLER 
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| ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 
-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


SEQ 0076 


30 3 | 
3031 ; DEFAULT DISPLAY INTERRUPT HANDLERS. 
3032 ; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. i 
3038 ; OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 
5 
3035 
3036 : BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
é 
3038 000200 IOKCKIN=B1T7 ; DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
3039 000001 IOKSTP=BITO ; EXPECT “STOP” INTERRUPT. 
3040 o 
3041 LINTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
3042 016144 000 TMASK : .BYT 
3043 LINTERRUPT FLAG -- SAYS WE GOT ONE CIF POSITIVE) 
$044 016145 000 TFLAG .BYTE 0 
3046 SAVED INTERRUPT VECTOR: 
3047 016146 00000 INTVEC: .WORD 0 
3048 ;SAVE CPU PC 
3049 016150 000000 INTCPC: .WORD 0 
3051 is UBROUTINE TO ENABLE INTERRUPTS: 
3052 016152 010046 NAINT: MOV RO, -(SP) — RO 
3053 016154 013700 002210 MOV IVEC,RO }GET POINTER TO VECTORS 
3054 016160 012720 016216 MOV @INTR, (RO)+ :SET UP INTERRUPT VECTOR 
3055S 016164 012720 000340 MOV @PRIO7, (RO)+ 
3056 016170 012600 MOV (SP)+,RO sRESTORE RO 
3057 016172 011646 MOV (SP), -(SP) 
3058 016174 012766 000000 000002 MOV @0,2¢SP) ;SET CPU TO LEVEL 0 
3059 016202 000002 RTI 
soe : ;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
3062 016204 011646 DSBINT: MOV SP), -(SP) 
3063 016206 012766 000340 000002 MOV @PRIO7,2(SP) 
3064 016214 000002 RTI 
3065 .SBTTL INTR - INTERRUPT HANDLERS 
Soe + 3 016216 a. BGNSRV INTR sDEFINE INTERRUPT ENTRY 
33 
3068 016216 012737 000001 002224 MOV #1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 
9 016224 105037 016145 CLRB = INTFLAG sCLEAR FLAG TO SAY WE GOT INTERRUPT 
3070 016230 132737 000001 016144 SITS  @IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
3071 016236 001003 BNE 1 36R IF YES 
3078 016240 152737 000001 016145 BIS8 § SIOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
sSAVE REGISTERS, MSG BUFFER, ETC. 
3075 016246 is: 
3076 016246 ENDSRV 
016246 110026: 


016246 000002 RTI 
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SEQ 0077 
WAITF - WAIT FOR SUBSYSTEM READY 
3078 .SB8TTL WAITF - WAIT FOR SUBSYSTEM READY 
3080 } SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
| 
3083 s INPUTS: 
3094 ; RS ADDRESS OF FIRST DEVICE REGISTER 
3086 JOUTPUTS: 
3087 3 
3088 , RO CONTENTS OF LAST TSSR READ 
3089 ' CARRY SET - READY BIT SET 
3090 ’ CLR - TIMEOUT WAITING FOR READY 
3032 016250 000401 WAITF:: BR 1s sNOP WHEN SUPER FIXED 
3093 016252 BREAK ; DO A SUPVSR BREAK FIRST. 
016252 104422 TRAP 
3094 016254 012746 011000 18: MOV #11000, -(SP) 125-APRIL-83 REV 8 - 1100 MSEC TIMER 
3095 016260 C16500 000002 28: MOV TSSRCRS),RO sREAD THE TSSR REGISTER 
3096 016264 105700 TSTB = RO sTEST FOR READY BIT SET 
o1 100420 BMI 38 ; EXIT ON STOP FLAG. 
3099 016270 DELAY i ; WAIT 100 USEC 
016270 012727 000001 MOV #1.(PC)s 
016276 013727 002116 MOV LODLY.(PC)+ 
016. 005367 177772 bEC -6(PC) 
016310 001375 BNE i? 
016312 005367 177756 DEC -22(PC) 
016316 001367 BNE = 
100 016 005316 DEC (sP) sREDUCE DELAY COUNT 
3101 016322 001356 BNE 2% }RETRY UNTIL TIMER EXPIRES 
102 016 000241 CLC ; C = 0, CONTROLLER STILL RUNNING. . 
3103 016 000401 BR as boas oR HUNG uP AFTER 300 MSEC. 
3104 016330 000261 3%: SEC ONTROLLER IS STOPPED. 
3105 016332 005326 as: DEC (SP + ‘RESTORE STACK WITHOUT CHANGING CARRY BIT 
3106 016334 000207 RTS PC 
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CHKTSSR - CHECK TSSR FOR READY 
-SBTTL CHKTSSR - CHECK TSSR FOR READY 





te 
sTHIS ROUTINE WAITS FOR READY IN THE TSSR 
it SAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
| 
sit s INPUT: 
$116 ' RS ADDRESS OF CSR REGISTERS 
| 
116 sOUTPUT: 
117 , RO CONTENTS OF TSSR 
118 ' CARRY SET - OKAY 
119 , CLR - NOT READY AMBIGUOUS, OR SC SET 
13) 016336 bvatssr: 
1s? 016336 004737 016250 JSR PC ,WAITF MATT FOR READY 
3 0 1030 8 ecc 208 ANCH IF TIME OUT 
0 7 016044 JSR PC, CHKAMB iTSSR AMBIGOUS? 
3125 016350 103006 ecc 108 :0R IF YES 
3126 0 €32700 100000 BIT @SC.RO sSPECIAL CONDITION SET? 
0 001405 BEQ 158 :0R IF 
3128 016360 032700 074000 BIT @<SCE!SIE!RMRINXM>.RO jANY ERROR BITS SET? 
3129 0 001402 Bea 158 :0R IF 
130 0 000241 108: sSET FAILURE 
3131 016370 000401 6R 208 
3 016372 000261 15s: SEC sSET SUCCESS 
133 016374 000207 208: ats PC sRETURN TO CALLER 
3134 \SBTTL XNXM © - CHECK FOR NONEXISTENT MEMORY 
3136 ; ROUTINE TO TEST FOR ‘ NEXM IN THE RANGE (R1) THRU (R2). 
3137 ; ON RETURN, IF = ° 1, (R1) = NEXM ADORESS 
$138 ; © 0. ALL ADORESSES OK. 
‘ 
140 sCALL: MOV ADR1,R1 
sist MOV ADAS AS 
sie 3 JSR PC .NXM 
} 1 RETURN sTEST “C* AND PROCEED. 
44 016376 012737 016430 000004 XNXM: MOV 02,004 s SET BUSERR VECTOR. 
245 016404 012737 000200 000006 MOV OPRIO4 , 806 
3146 016412 on5008 CLR 3 FLAG. 
3147 016414 005711 18: TST (R21) TEST 1 THE ADORESS(ES). 
$ TRAP 


INVE AT 26. 


SEQ 0078 
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- TSTLOOP - CHECK ITERATION COUNT 


005737 
006 
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002170 
002204 
002216 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 
: SUBROUTINE TO oe TEST ITERATIONS. — 
s EXIT WITH “"C" SET LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
; LOOP COUNTER IS Set "ey "BEGIN. TEST” MACRO. 


; CALL: LOOPTO ARG 


TSTLNOP: : 
Tst —_NOITS | ITERATIONS INMIBITED? 
o 
TST ave ; NO. 
BMI is }LOOPS DISALLOWED IN QUICK PASS. 
DEC LOOPCNT ; BUMP LOOP COUNTER 
1s: cuC ae ;LOOP DISALLOWED, OR DONE. 
2s: SEC ;LOOP ENABLED. 
3$: RTS —s PC 


.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
oo 
PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "“TESTK” TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
INPUT: 
RO POINTER TO TEST ID ASCIZ STRING 
OUTPUT: 
RS ADDRESS OF FIRST DEVICE REGISTER 


IMPLICIT OUTPUTS: 


SIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


TSTSETUP: : 

MO SAVE THE TEST ID MESSAGE 
CLEAR “SOFT INIT” FLAG 
CLEAR LOCAL ERROR COUNTER, 
CLEAR ERROR EXTENSI 


e 
< 
S 
ra nn 
4 cr 
= 
2 
ro) 


GET THE UNIT NUMBER 
ASL RO ... AND MAKE IT A WORD OFFSET. 
TST NODEV DID STARTUP FIND THE DEVICE? 
BEQ at BR IF YES 
PL 3% BR IF NOT IDLE 


TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 


ON FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 


SEQ 0079 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


3219 016550 052760 160000 003176 BIS #160000, sERTABLCRO) ; FLAG ERROR IN THE ERROR TABLE 
3220 016556 ERROF 1,NXR,NXRERR ; NO DEVICE HERE -- PRINT IT 
016556 104455 TRAP titeor” 
016560 000001 .WORD 1 
016562 003740 [WORD NXR 
016564 005736 “WORD NXRERR 


3223 016576 ERROF 2,NOINI ; DEVICE NOT IDOLE 
pede 104455 TRAP CSEROF 


000002 . © 
016602 004335 -WORD NOINIT 
000900 -WORD 0 
3224 016606 012737 177777 003112 2%: noe at a s DROP THE UNIT 
016614 013700 Coz2202 MOV UNITN,RO 
016620 i04°51 TRAP Cs000uU 
3226 016622 DOCLN ; ABORT THE PASS 
016622 104444 TRAP Cs0CLN 
BR S$ 
29 oneses 4s: wees RO ; GET THE OPERATOR FLAGS. 
3230 016630 032700 001000 BIT gk cae ; PRINT THE TEST NUMBERS? 


1 ; BR IF NO 
33 016636 011600 ; MOV CSP) ,RO iGET THE ID MESSAGE 
016640 PRINTF @TNAM,RO sDISPLAY THE TEST ID 


016640 010046 RO 
016642 012746 016704 MOV @TNAM 
016646 000002 


000006 ADD 6, SP 

3234 016662 005237 002214 _ 1s: INC TSTCNT ; BUMP TEST COUNTER. 

3235 016666 . SETPRI IPRI sPRIORITY THAT OF DEVICE 
016666 013700 002212 ‘ MOV 


.) 
3236 016674 005726 S$: TST Ss sFIX UP THE STACK 
th 016676 013705 002206 y) MOV apaen.ne ; ADDRESS OF TSV REGISTERS ON UNIBUS 


38 RTS Cc 
3239 016704 045 123 045 TNAM: -ASCIZ ‘SSSTSA Test’ 
3240 -EVEN 
3241 -SBTTL TSTEND - PRINT ERRORS RECEIVED 


3243 ; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
; IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 


3246 016720 TSTEND: RFLAGS RO 

° TRAP : 
3248 016726 061412 BEQ 18 ; BR IF “IER” NOT SET. 
3249 016730 PRINTF #ESUM, ERRK ; PRINT ERROR COUNT. 


} 
| 
| 
3221 016566 000407 BR es 
3222 016570 052760 160001 003176 3%: BIS #160001 ” ance s FLAG ERROR IN THE ERROR TABLE 
16756 RRK , -( SP 
016734 012746 016760 MOV @ESUM, -(SP) 
000002 ) 





LL 


SEQ 0080 
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SEQ 0081 
TSTEND - PRINT ERRORS RECEIVED 
016750 062706 000006 ADD «#6, SP 
3250 016754 000207 1s: RTS PC 


3252 016756 000000 : + LOCAL ERROR COUNT. 
3253 016760 045 101 040 ESUM: -ASCIZ /#A SDSA_ERRORS/ 
rte 016777 105 122 122 EMAXDU: iy ZERROR LIMIT REACHED -- DROPPING UNIT/ 


TSVS - GLOBAL AREAS 


INCERK 
3257 
3258 
3259 


3261 


3288 


3289 
3290 0 


001013 
012737 
104455 
000004 
016777 
000000 
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- INCREMENT LOCAL ERROR COUNT 


177777 


002202 


002172 


003112 


- INCREMENT LOCAL ERROR COUNT 


1° 
s ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


.SBTTL INCERK 

INCERK: INC ERRK 
MOV RO, -(SP) 
MOV UNITN, RO 
ASL RO 
ADD @ERTABL ,RO 
INC (RO 
BIT 67777, (RO) 
BNE i$ 
DEC (RO) 

1s: MOV (SP)+,RO 
RTS PC 

CKEMAX: MOV =(SP2 
MOV Oni TN 
ASL RO 
MOV _ ERTABL(RO) RO 
BIC #170000,R 
CMP Ro CERRMAX 
BHIS i$ 
CMP ERRK ,LERRMAX 
BLO 28 

i$: RFLAGS RO 
TRAP CSRFLA 
BIT @IDU,RO 
BNE 28 
MOV e@- 1 ° DUFLG 
ERROF  4,EMAXDU 
TRAP  CSERDF 
.WORD 4 
"WORD EMAXDU 
"WORD =O 
BODU  —sUNTITN 
MOV UNITN, RO 
TRAP  C$D00U 
DOCLN 
TRAP - C$DCLN 

2%: MOV (SP)+,RO 
RTS PC 


INCREMENT LOCAL ERROR COUNT 
SAVE RO 


GET UNIT NUMBER, 

AND MAKE IT A WORD OFFSET. 
RO'GETS ADDRESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
oro = OVERFLOW THE FIELD? 


F NO. 
YES -- BACK IT UP TO 7777. 
RESTORE RO 

RETURN TO CALLER. 


SAVE RO 

GET UNIT Rane 
AND M TA a OFFSET 

GET ER ROR T E ENT 

EXTRACT ERROR COUNT. FIEL LO 

as er LIMIT EXCEEDED FOR THIS UNIT? 

23 LOCAL LIMIT EXCEEDED FOR THIS TEST? 


BR IF NO 
GET OPERATOR FLAGS 
Is ever INHIBITED? 


BR IF 
NO -- DROP THE UNIT 


RESTORE R 
RETURN 10. CALLER 


SEQ 00862 
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_CKDROP - CHECK IF UNIT 


3292 
3293 
3294 


3295 
3296 
329 


~ 
°o 


01 
017272 
017274 


017314 
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SHOULD BE DROPPED 


000040 


177777 003112 
002202 


015774 


003132 
000001 177572 


003132 


000000 177572 


SEQ 0083 


\SBTTL CKOROP - CHECK IF UNIT SHOULD BE DROPPED 
2 
} CHECK IF UNIT SHOULD BE DROPPED 
eKDROP: MOV RO, -(SP) 
FORCE 


CERROR 1$,NOTSSR 
RFLAGS RO 
TRAP CSRFLA 
BIT #IDU, 
BNE 1% 
MOV (SP),RO 
MOV @-1 
o00uU UNI 
MOV UNITN,RO 
TRAP Cs 
DOCLN sABORT THE PASS 
TRAP CSO0CLN 
1%: MOV C(SP)+,RO 
RTS PC 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


tonr IG: 
se BC, SOFINIT 
"SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
} SUBROUTINE - ENABLE MEM MGT. 
KTON: TST KTFLG ; SOT KT? 
BEQ is 3; NO. 
MOV #1,SRO ; YES. ENABLE KT11. 
1s: RTS PC 
} SUBROUTINE - DISABLE MEM MGT. 
KTOFF: TST KTFLG ; GOT KT11? 
BEQ is ; NO. 
NOP 
MOV 0, SRO ; DISABLE KT. 
1s: RTS PC 


| TSV3 - GLOBAL AREAS 
- SETUP PAR6 MAPPING 


| SeTHAP 


3 
S54 017316 


017420 
4 


MACRO YOS.02 Monday 16-Sep-85 10:39 Page 69 


003132 


000177 
003132 


172352 
160000 
120000 


.<SBTTL SETMAP - SETUP PAR6 MAPPING 
‘@ 
i THIS ROUTINE SETS UP KERNEL PAR6 TP_HANDLE 


sAN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
a RETURNED BIASED TO PARG. 


LINPUTS: 

; RO HIGH ORDER ADDRESS BITS 

' R1 LOW ORDER ADDRESS BITS 

: 

sOUTPUTS: 

: RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 

j CARRY SET IF SUCCESS 

, CLR IF ERROR 

SETMAP : 
SAVREG ;SAVE R1-R4 UNTIL NEXT RETURN 
TST KTFLG sSYSTEM HAVE ABOVE 28K? 
BEQ 10% ; 
ov R1.R2 ;SAVE LOW ORDER BITS 
ASR RO ;CONVERT WORD ADDRESS TO 32W BLOCKS 
ROR Ri ;MAKE IT DOUBLE PRECISION 
BIC @177,R1 sALIGN FOR LOWER 4K BOUNDARY 
CMP R1,KTFLG ;HIGHER THAN EXISTING MEMORY? 
BHIS 10% :8R IF YES 
MOV R1, @@KIPARS ;SETUP MAPPING REGISTER PARS 
BIC #160000 ,R2 ;SETUP DISPLACEMENT IN PAGE 
ADD #120000.R2 3ADD IN PARS BIAS 
MOV R2,RO ;RETURN IN RO 
SEC ;SET SUCCESS 
BR 15% 3 

108: cLc ;SET FAILURE 

15%: RTS PC ;RETURN 
.SBTTL REGSAV - SAVE R1-RS ON STACK 

3¢ 

ROUTINE T 


0 
sSAVE R1 THROUGH RS ON THE STACK 


}CALLING SEQUENCE: 
JSR _—sRS, REGSAV 


iTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 

:THE RTS Pc RETURNS CONTROL TO THIS ROUTINE TO RESTORE 

: 


i THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 


SEQ 0084 





| TSV3 - GLOBAL AREAS MACRO YOS.02 Monday 16-Sep-85 10:39 Page 69-1 





SEQ 0085 
REGSAV - SAVE R1-RS ON STACK 
3392 '- 
3393 
hey 017422 REGSAV: 


' 
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| SEQ 0086 
| GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


3408 .SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3¢ | 
$411 }ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
3 
3413 sINPUTS: NONE. 
3414 3 
3415 ;OUTPUTS: 
3416 : RO OCTAL NUMBER FROM THE OPERATOR 
$ 
3418 ;CALLING SEQUENCE: 
3419 : JSR PC ,GETPAT 
3420 $- 
3421 017456 GETPAT: : 
3422 017456 SAVREG ;SAVE THE GENERAL REGISTERS 
3423 017462 1s: GMANID DATASC,PATDAT,O,377,0,377,NO 
017462 104443 TRAP C$GMAN 
017464 000406 BR . 00008 
017466 017512 “WORD PATDAT 
017470 00022 “WORD TSCODE 
017472 017514 “WORD DATASC 
017474 000377 "WORD 377 
017476 000000 “wORD TSLOLIM 
017500 000377 “WORD T$HILIM 
017502 100008: 
3424 017502 BNCOMPLETE 1$ ;RETRY IF ERROR 
017502 103367 BC $ 
3425 017504 013700 017512 MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
3426 017510 000207 RTS PC ;RETURN TO CALLER 
3428 - 
3429 ;LOCAL DATA AREA 
3431 és 
3432 017512 000000 PATDAT: .WORD 0 ; TEMPORARY STORAGE FOR DATA 
3433 017514 105 116 124 DATASC: -ASCIZ ‘ENTER DATA PATTERN’ 





| TSV3 - GLOBAL AREAS MACRO YOS.02 Monday 16-Sep-85 10:39 Page 71 


SEQ 0087 
| GETSEL - ISSVE MENU AND GET OPERATOR RESPONSE 
3436 .SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
3¢ j 
3438 sROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 
3 
3440 }INPUTS: 
3441 ; RO ADDRESS OF ASCIZ STRING OF MENU 
344g : Ri MAXIMUM ALLOWABLE OPERATOR RESPONSE 
3 
agg ;OUTPUTS: 
3445 ; RO NUMBER OF THE OPERATOR'S SELECTION 
3447 017540 GETSEL:: 
3448 017540 SAVREG ;SAVE GENERAL REGISTERS 
3449 017544 010002 MOV RO,R2 sSAVE THE MENU ADDRESS 
3450 017546 010203 1s: MOV R2,R3 sSTART OF MENU STRING 
3451 017550 005713 28: TST CR3) sENO OF ASCII ? 
017552 001412 BEQ 3% ;BRANCH IF ALL LINES DISPLAYED 
3453 017554 PRINTF @SELASC,(R3)+  ;DISPLAY THE MENU 
017554 C12346 MOV (R3)+,-CSP 
017556 012746 017724 MOV @SELASC, -(SP) 
017562 012746 000002 MOV @2, -(SP) 
017566 010600 MOV RO 
017570 104417 TRAP §C$PNTF 
017572 062706 000006 ADD 66, SP 
3454 017576 000764 BR 28 
3455 017600 3%: GMANID MENASC,MENRES,D,-1,0,-1,NO 
017600 104443 TRAP  C$GMAN 
017602 000406 BR 0001 
017604 017760 .WORD MENRES 
017606 2 “WORD TSCODE 
017610 017731 "WORD MENASC 
017612 177777 :WwORD 1 
017614 000000 ‘wORD TSLOLIM 
017616 177777 “WORD TSHILIM 
017620 100018: 
3456 017620 BNCOMPLETE 1% ;RETRY IF ERROR 
017620 103352 Bcc 18 
3457 017622 013700 017760 MOV MENRES RO :GET THE OPERATOR'S REPLY 
3458 017626 020001 CMP RO,R1 ;COMPARE TO IAXIMUM ALLOWED 
3459 017630 101411 BLOS s« S88 ;BRANCH IF OK 
3460 017632 PRINTF @MENERR sDISPLAY ERROR MESSAGE 
017632 012746 017656 MOV @MENERR, -(SP) 
017636 012746 000001 MOV #1, -(SP) 
017642 010600 MOV SP .RO 
017644 104417 TRAP CSPNTF 
017646 062706 000004 ADD 64,SP 
017652 000735 BR 1% :RETRY 
017654 000207 S$: RTS PC ;RETURN TO CALLER 


3461 

3462 

3463 017656 045 116 045 -ASCIZ ‘NSA #e¢ Menu Selection Too Large ss’ 
3464 ‘sNST' 


HENERR 
017724 40s «045 116 045 SELASC: ASCIZ T 
3465 017781 105 156 164 WENASC: ‘ASCIZ ‘Enter Menu Selection: ' 


3466 
3467 017760 000000 MENRES : -WORD O 
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SEQ 0088 
| CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
rp 44 .SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
3¢ 
3471 3 | 
sare sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
3 ' 
3474 s INPUT: | 
3475 : 
3476 3 NONE . 
3477 3 
Sars sOUTPUT: 
3 
3480 : CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
3461 3 1 MANUAL INTERVENTION IS OK 
3482 3 
3483 sSIDE EFFECTS: 
3485 3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3486 : NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3487 3 ALLOWED. 
3488 3 
3489 5 
3490 
3491 017762 CHKMAN: : 
3492 017762 SAVREG sSAVE THE REGISTERS 
3493 017766 MANUAL 3SEE IF MANUAL INTERVENTION OK 
017766 104450 TRAP C$MANI 
3494 017770 BCOMPLETE 1% ;BRANCH IF ALLOWED 
017770 103411 ecs i$ 
3495 017772 PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
017772 012746 020016 MOV @NOMAN, -C SP) 
017776 012746 000001 MOV #1,-CSP) 
01 MOV SP ,RO 
104417 TRAP CSPNTF 
020006 062706 000004 ADO ° 
3496 020012 000241 CLC s;CLEAR CARRY FOR ERROR 
3497 020014 000207 1$: RTS PC ;RETURN 


3498 
444 020016 045 116 045 NOMAN: .ASCIZ ‘SNA #e% Manual Intervention not Allowed - Test Aborted see‘ 


even 
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003124 
003126 
000002 


003130 
177520 


000002 
016376 


177520 
000001 
177520 
177520 


003144 
170000 


003146 


003124 
003126 
003126 


002120 


108%: 


15%: 


- SBTTL 


ENVIRN 


TRAP C$MEM 

MOV RO, FREE 
ADD 62, FREE 
MOV (RO), FRESIZ 
SUB 04, FRESIZ 
MOV LSUNIT,R2 
SUB 67, FRESIZ 
DEC R2 

BNE 108 

MOV FREE ,RO 
ADD FRESIZ,RO 
SUB @2,R0 

MOV RO. FREEHI 
NOP 

MOV @BDVPCR,R1 
MOV R1,R2 

ADD @2,R2 

JSR PC, XNXM 
Bcc 158 

BR $ 

MOV BDVPCR,R1 
ADD 1,R1 

MOV @BOVPCR,R2 
INC 2) 

MOV BOVPCR,.R3 
CMP 1,R3 

BNE 3 

INC 23A 

BIC #170000, L $HIME 
PRINTF #18186 

BR 408 

INC 7238 

NOP 

PRINTF M6189 
RTS PC 


SEQ 0089 


- SETUP FREE DIAGNOSTIC SPACE 
} SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
ENVIRN: MEMORY RO 


s GET 1ST FREE ADDRESS... 
s...AND WORD COUNT. 


s GET NUMBER OF UNITS 
s TAKE AWAY 7 WORDS PER UNIT 


sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADORESS 
sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 


PREEGATRAGHERSEBREAEAESEEESKOHRRAKAESESESHENSALR 


sGET et PCR ADDRESS 


:COPY TO R2 

3sSET R 

sSEE IF WE HAVE ONE 

30K TO SET FLAGS 

sRETURN WITH FLAGS CLEAR 
— PCR coer ENTS 

iGET BOV11 PCR ADDRESS 

i TRY TO WRITE TO IT 

3GET ULTS 

rDID Itc 


HANGE ? 
OF ous" eek 11/238 


+ SUPERVI VISOR ay BE WRONG 
sBR 40% FOR RELEASE 

iTELL THE SYSTEM TYPE 

‘ 

sSET THE FLAG 

sBR 40% FOR RELEASE 

sTELL THE SYSTEM TYPE 


sRETURN 
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SEQ 0090 


3544 .SBTTL KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
3¢ 

3546 ' 

3547 sROUTINE TO INIT KT-11 

2548 : 

3549 s- 

3550 

3551 020272 KTINIT: 

3552 020272 005037 003132 CLR KTFLG ; INIT >26K MEMORY FLAG 

3553 020276 005037 003134 CLR KTENABLE ; INIT TEST >26K FLAG 

3554 020302 023727 002120 001577 Cre L$HIME.@1577 _; GOT ENOUGH MEMORY (>28K)? 

3555 020310 101454 BLOS 6s«98 : 

3556 020312 013700 000004 MOV BSERRVEC RO ; SAVE OLD ERR VEC PTR. 

3557 020316 012737 020430 000004 MOV 02% , @@ERRVEC ; SET ERR VEC PTR 

3558 020324 005737 177572 TST BeSRO ; GOT KTi1 

3559 020330 000240 NOP s CTRAP IF PF 

3560 020332 013737 002120 003132 MOV LOHIME,KTFLG ; YES. SET KT FLAG. 

3561 020340 022737 010000 003132 CMP $10000.KTFLG ; THAN 18 BITS? 

3562 020346 100404 BMI 4s : 

3563 020350 042737 003777 003132 BIC €3777 ,KTFLG F 

3564 020356 000403 BR 53 , 

3565 020360 042737 000177 003132 4%: BIC 0177, KTFLG , 

566 020366 010037 000004 S$: MOV RO, B@ERRVEC ; RESTORE OLD ERR VEC PTR. 

3567 020372 005000 CLR ; RO = AR DATA. 

3568 020374 012701 172340 MOV @KIPARO,R1 ; Rl = KI REGS PTR 

3569 020400 012761 077406 177740 18: MOV $77406, -40(R1) 3 SET DESCRIPTOR REG 

3570 020406 010021 MOV RO,CR13« ; SET KIPAR REG. 

3571 020410 062700 000200 ADD #200 ,RO ; BUMP AR DATA BY “4K". 

3572 020414 020027 002000 CMP RO, #2000 ; AT “I/0"? 

3573 020420 001367 BNE 1 3; NO. 

3574 020422 012741 177600 MOV #177600,-(R1) ; YES. SET KTPAR7 FOR 1/0. 

3375 020426 000405 BR 9% 

3577 020430 012716 020436 28: MOV 06%, (SP) ; SET UP RETURN 

3378 020434 000002 RTI ; RTI TO NEXT LOCATION 

3580 020436 010037 000004 63: MOV RO, B@ERRVEC ; RESTORE OLD ERR VEC PTR. 


3582 020442 000207 9%: RTS PC 








| 
| 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


SEQ 0091 


3584 ° 
s515 ; SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
244 ; Requires thet SOFINIT and WRICHR heve been done previous to cell. 
4 ; 
3590 s INPUTS: 
3591 ' CURRENT UNIT NUMBER 
35 sOUTPUTS: 
S508 3 The Extended Features Switch is set. 
95 a 
35 
3597 020444 INVERT: : 
35986 020444 013705 002206 mov cereddr .r5 
3599 020450 004737 015774 r sof init 
3600 020454 103406 ° @6soBs 
3601 gooes 010001 a r0.ri P e 
er r SB rr, 
020460 106455 Trap octeRE 
020462 002261 . WORD 1 
020464 003652 -WORD sfierr 
020466 012034 “WORD sf imeg 
3603 020470 104455 trep cterdf 
3604 02047, 25%: ck loop 
020472 104406 TRAP C8CLP1 
3605 020474 013737 002202 076300 mov unitn, t39dew 
Seo Os0s08 ODaTS? Oibees i oe 
r wr ir 
3608 020512 1 - 
3410 osesig arrundl crten. witness 
er errno ,wt ori 
920316 104456 TRAP  CSERHRD 
020522 “WORD wrtmeg 
3611 o20536 100556 ek io: even efested 
r cte 
Seis S0ee8 Sots gadeee - 
020530 «1 TRAP —s- C8CLP1 
3613 020532 013701 075610 aov €390frei2.ri 
3614 020536 bit @it7,ri 
is 920342 001 bre 18 
ig 012 100206 020610 10%: MOV 0100206 , CHDPKT s MRT SUB-SYS MEM CHD 
361 920352 012737 020620 020612 HOV OUSMOK , CHOPKT +2 : 
18 7 020616 HOV 06 , CHDPKT +6 s BYTE COUNT 
3619 020566 012737 100010 020620 MOV @100010, WSMBK 3 INVERT THE SWITCH 
3620 020574 012704 020610 HOV OCHDPKT ; 3 SET CHOPKT INTO RO 
3621 020600 004737 010662 JSR PC .URTCHR : OOF 
eis 020604 000207 18: RTS Pc 3 RETURN 
sees A COMMAND PACKET. 
se38 020610 " 2 <,o3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
3628 020610 000000 CMDPKT:: © s1ST WORD IS TSOS COMM. 
020612 000000 0 WORD IS THE LOW ADDRESS. 
3630 oa0eta Sonooo 5 ‘SRD MORD 1S THE GUFFER titn  aboness. 
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SEQ 0092 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


set] 020616 000000 0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 
seas F WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
3635 020620 000000 WSMBK:: O 31ST WORD:: SEL O 
3636 020622 000000 t¢) 32ND WORD:: SEL 2 
3637 020624 000000 0 :3RO WORD:: SEL 4 
oto4 .EVEN 
t¢ 
sear $ SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
3 
3642 3 
3643 s INPUTS: 
3644 sOUTPUTS: 
3645 ; The NXMFLG is set if we can test. 
seas 3 The NXMLO and NXMHI addresses are setup. 
5* 
3648 
et 020626 MEMCK: : 
3651 020626 SAVREG ;SAVE THE REGISTERS 
3652 020632 005037 003136 CLR NXMFLG em THE FLAG 
3653 020636 005037 003140 CLR NXMLO ;CLEAR THE TEST ADDRESS LO 
3654 020642 005037 003142 CLR NXMHI sCLEAR THE TEST ADORESS HI 
3655 020646 005737 003146 TST T238 31S IT A 11/238? 
3656 020652 001407 BEQ i$ 3 
3657 020654 023727 002120 007777 L$HIME ,@7777 ; GREATER THAN 128K 
58 020662 103406 BLO 2s 3 
3659 004737 021002 JSR PC .NXMTST ;SETUP THE A 
3660 020670 000427 BR 13% ;SET THE FLAG AND EXIT 
3661 020672 005737 003144 1%: TST T23A 31S IT A 11/23A? 
3662 020676 001413 BEQ 48 3NO 
3663 020700 023727 002120 005777 2%: LSHIME ,@5777, GREATER THAN 96K 
3664 020706 101023 BHI 14 :YES,23A/238 WITH 128K MEMORY 
3665 020710 023727 002120 003777 LSHIME , 03777 ;GREATER THAN 64K BUT LESS THAN 92K? 
3666 020716 103403 BLO ;NO CHECK 24 
3667 7 737 021002 JSR PC,.NXMTST ;SETUP THE ADDRESS 
3668 020724 000411 BR 13% ;SET THE FLAG AND EXIT 
3669 020726 023727 002120 001577 4%: CMP LSHIME , #1577 sGREATER THAN 24K BUT LESS THAN 64K? 
3670 020734 103410 BLO 14% sNO. TELL THEM AND EXIT WITH FLAG CLEAR 
3671 020736 004737 021002 JSR PC ,.NXMTST ;SETUP THE ADDRESS 
3672 020742 062737 000077 003142 ADD 077, NXMHI sFOOL THE 11/02 € 11/703 
3673 020750 005237 003136 13%: INC NXMFLG :SET THE FLAG 
3674 020754 000411 BR 15% ,;EXIT 
3675 020756 000410 14%: BR 15% sNOP FOR PRINTOUT 
3676 020760 PRINTF @NOMEM ; TELL THEM & EXIT #eeNO PRINTesece 
020760 012746 005460 MOV @NOMEM, -( SP) 
764 012746 MOV #1, -(SP 
020770 O1 MOV ° 
020772 104417 TRAP CSPNTF 
020774 062706 000004 ADD @4,SP 
eer? 021000 000207 15%: RTS PC ;RETURN 
3679 se 
seee 3 SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
’ 
3682 3; OUTPUTS :NXMLO, NXMHI ;SETUP WITH NXM ADDRESS 


ne eee 
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3724 
3725 021106 


013701 002120 


062701 000200 
042701 000177 
010102 


010137 003140 
000012 


042702 177700 
010237 003142 
000207 


177777) «=©177777) «177777 


NXMTST: 


TSV4:: 


LSPROT:: 


MOV 
ADD 
BIC 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


SEQ 0093 


LSHIME ,R1 :GET TOP OF MEMORY 
#200. Ri ;MAKE IT I/O BLOCK OR OTHER NXM 
R1.R2 ;RESAVE RESULTS 

R1 :PUT IN PLACE FOR XFER 

Ri .NXMLO ;SAVE TEST ADORESS LOW 

R2° ;PuUT IN PLACE FOR XFER 
@177700,R2 ;D0N‘T WANT ILA! 

R2,NXMHI ;SAVE TEST ADDRESS HIGH 

PC ; RETURN 


TSV4 - MISCELLANEOUS SECTIONS 
Tsv4 


PROTECTION TABLE 


“1, -1, -1. -1 sNO DEVICE PROTECTION REQUIRED. 
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INITIALIZE SECTION 


SEQ 0094 


3727 \SBTTL INITIALIZE SECTION 
ue 

3730 STHE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3731 iAT THE BEGINNING OF EACH PASS. 

3733 TIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
3734 SIF "CONTINUE", NOTHING IS REQUIRED. 

3736 _~ 

3737 

3738 TINSERT TEMPORARY JUMP TO ODT 

5739 - 


106 

3741 021106 
3742 112 
3743 021116 
3744 021124 
3745 021130 
3746 021154 
3747 021140 
021140 
021144 
3748 021146 
021146 

3749 021150 
156 


002226 
003136 
006360 
003154 
003134 
002302 
000036 


002202 
003112 
002202 
003176 
040000 


000035 


000037 


002200 


002012 


003176 


BGNINIT 

LSINIT:: 

40%: CLR EXTFEA 
CLR NXMFLG 
MOV #EPRT1,EPRTSW 
CLR SIFLAG 
CLR K TENABLE 
CLR RAMSIZ 
READEF #€F .CONTINUE 
MOV @€F . CONTINUE ,RO 
TRAP CSREFG 
BNCOMPLETE 18 
Bcc is 
CMP UNITN,LSUNIT 
BHIS 4% 
TST DUFLG 
BMI NXTU 
MOV UNITN,R1 
ASL ies 
TST ERTABL(R1) 
BEQ SETU 
BIT #61T14,ERTABL(R1) 
BNE NXTU 
EXIT INIT 
TRAP CsExIT 
. WORD 10030-. 

1%: READEF #€F .NEW 
MOV @€F .NEW,RO 

AP CSREFG 

BNCOMPLETE NXTU 
BCC NXTU 
READEF #€F.STAR 
MOV @€F .START,RO 
TRAP CSREFG 


Vv OEF RESTART ,RO 
TRAP CSREFG 
BNCOMPLETE 31% 
6cc 
2s: 
SE 
TRAP CSRESET 


sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
;CLEAR “SOFT INIT” FLAG 

s;CLEAR TEST ABOVE 28K FLAG 

sCLEAR RAM SIZE FOR RAMERR ROUTINE 


sUNIT IN RANGE? 
;BR IF NO. 
sOROPPED UNTT? 
:BR IF YES 


; DROPPED? 
:D0 NOTHING IF “CONTINUE”. 


s TAKE NEXT UNIT IF NOT NEW PASS. 


31ST PASS, BUS-INIT... 
sBUS RESET. 


TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 

002214 
002222 
003144 
003146 


003400 
177777 


005037 


wu 
an 
od 
a 


002204 
021404 


177777 
002220 
002202 
002202 


177777 
002012 
002220 


000100 


002202 


003112 
002220 


012001 
010137 002206 
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CLR TSTCNT 
cLR FATFLG 
cLR T23A 
CLR 7238 
: MOV @340,-(SP) 
; MOV €20%, -(SP) 
; JMP .O0T 

CLR SKIPT 
20%: 

002204 MOV @-1,QVP 
JSR PC, ENVIRN 
JSR PC .KTINIT 
MOV @ERTABL ,RO 

308: CLR (RO)+ 
CMP RO, @ERTABE 
BLO 30 
BR a3 
318: CLR ave 
JMP PASRPT 
4t: 

002202 NEWPAS: MOV @-1,UNITN 

CLR DEVCNT 
NXTU: BREAK 
TRAP  C$BRK 
INC UNITN 

002012 CMP UNITN,LSUNIT 
BLO SETU 

003112 MOV @-1,D0UFLG 
BR 118 
DOCLN 
TRAP _ C$DCLN 

11$: NOP 
PASRPT: 
000001 MP LSUNIT, @1 
BLOS  NEWPAS 
ST DEVCNT 
Q NEWPAS 
RFLAGS R 
TRAP $RFL 
BIT @ISR,.RO 
BNE NEWPAS 
DORPT 
TRAP CSDRPT 
BR NEWPAS 
10%: 
SETU: GPHARD UNITN,RO 
MOV UNITN.RO 
TRAP _ C$GPHRD 
BNCOMPLETE NXTU 
Bcc NXTU 
CLR DUFLG 
INC DEVCNT 
MOV (RO)+,R1 


MOV R1,CSRADOR 
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RET 
BRENTER THE 


sNUMBER OF TESTS RUN IN PASS 
sCLEAR FATAL ERROR COUNT 
sCLEAR 11/23A FLAG 

sCLEAR 11/238 FLAG 


URN TO > ea 


, DEBUGGE 
‘eLEAR THE SUBTEST “SKIPPER” 


3...QUICK VERIFY... 

3SET ENVIRONMENT. 

s INITIALIZE KT MEMORY MANAGEMENT 
;CLEAR THE ERROR TABLE 


3GO REPORT THE STATUS 


:INIT UNIT NUMBER... 
;CLEAR COUNT OF DEVICES RUNNING 


;...AND SET NEXT UNIT NUMBER. 


;ABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
;BR IF ONLY 1 

;ARE ANY STILL RUNNING? 
:BR IF NO 


sSHOULD WE PRINT STATISTICS 
;BR IF NO 


;GET UNIT N P-TABLE POINTER. 


;BR IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 


sGET 1ST REGISTER ADDRESS 


;ADDRESS OF REGISTERS OF UNIT UNDER TEST 


SEQ 0095 
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3818 
3819 
3820 


382 
3822 
3 


wnrr 


3861 


021464 


INITIALIZE SECTION 


012001 


010137 
012721 
013721 


013701 
006301 
CS2761 
005037 
023727 
101416 


010137 
012737 


012700 
104441 


104411 
045 


002210 
016216 
002212 


002202 


003114 
002206 


000002 
016376 


003114 
177777 


116 
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003176 


003112 


045 


1$: 
3 TST 
3 BEQ 


CRO)+,R1 
(RO) ,R2 
R2,IPRI 
R1,IVEC 
@INTR,CR1)> 
IPRI,CR1)+ 
ave 

S$ 
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sGET VECTOR ADDRESS. 

sGET INTERRUPT pest feat SL 

sSET INTERRUPT PRIORITY 

;SET INTERRUPT VECTOR POINTER. 


s...VECTOR. 
;...AND PRIORITY. 


31ST PASS ?? 
3NO, SKIP THE PASS 1 STUFF. 


sAST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
sTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


10$: 


2s: 


UNITN,R1 


@BIT1S,ERTABL(R1) 
EXTA 


LSUNIT, #1 
10% 


RO 
CS$RFLA 
oP 


10% 
@PUNIT ,UNITN 


NODEV 
CSRADOR,R1 
R1,R2 
@TSSR,R2 
PC, XNXM 

2$ 
R1,NODEV 
@-1,0UFLG 


sSAY DEVICE RUNNING 

;CLEAR ERROR EXTENSION FLAG. 
oe TESTING MULTIPLE UNITS? 
ives -- GE1 OPERATOR FLAGS. 


sSHOULD WE PRINT UNIT @? 
:BR IF NOT 
;PRINT THE UNIT @ 


sADDRESS OF FIRST REGISTER 
sSTART OF REGISTERS 
sADDRESS OF TSSR REGISTER 


sTES: Len CONT a REGISTERS... 


IF ALL 
eLaG DEVICE AS "RN EXISTENT 
sDROP THIS UNIT 


;FINALLY, SET CPU PRIORITY AND WE'RE DONE. 
sENABLE INTERRUPTS. 


i 

S$: SETPRI 
MOV 
TRAP 
NOINIT 


L10030: 
TRAP 


PUNIT: 


@PRIOO 
@PRIOO,RO 
Cs$SPRI 


CsINIT 


-ooeae /SNENSAseeee TESTING UNIT SD28A se008/ 


SEQ 0096 
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_ ADD AND DROP UNITS SECTIONS 


} 994 -SBTTL ADD AND DROP UNITS SECTIONS 
! 
3865 3+ 
| 3866 3 THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
| 3867 ; TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST 
| +84 3 OR (6) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
gee 
3870 021702 BGNAU 
021702 L$AU:: 
3871 021702 010001 MOV RO,R1 ; GET UNIT TO BE ADDED CRO) 
3872 021704 006301 ASL R1 ; MAKE IT A WORD INDEX 
3873 021706 052761 100000 003176 BIS #100000, ERTABL(R1) 3; SET THE “ACTIVE” BIT 
3874 021714 042761 040000 003176 Cc #40000, ,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
3875 021722 PRINTF $1$,RO0 
021722 010046 Vv 0, -CSP) 
021724 012746 021750 MOV #1%,-CSP) 
021730 012746 000002 MOV @2,-CSP) 
021734 O01 RO 
17 104417 TRAP CSPNTF 
021740 062706 000006 ADD #6,SP 
3876 021744 EXIT AU 
021744 000167 ‘ J$JMP 
021746 000026 -WORD  L10031-2-. 
3877 021750 045 116 045 18: -ASCIZ /sNSA UNIT SDA ADDED/ 
3878 -EVEN 
3879 
3880 021776 ENDAU 3; UNUSED. 
021776 L10031: 
sect 021776 104452 TRAP CsAU 
toe 
3882 ; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
38683 ; TO BE REMOVED FROM THE TEST LIST. 
3884 a 
3885 ; SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
3886 ; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
3887 3s COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
38 ; WILL PRINT ALL DROPPED UNIT S, AND THE P-TABLES OF THOSE 
3889 : WHICH ARE STILL ACTIVE. 
ty ; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
3892 022000 BGNOU 
022000 L$DU:: 
3893 022000 012737 177777 003112 MOV @-1,0UFLG 
3894 022006 010001 MOV RO,R1 
3895 022010 006301 A 


SL R1 
3896 022012 goeres 140000 003176 BIS #140000, ERTABL(R1) s+ SAY DROPPED 


3897 022020 240 000240 000240 240,240,240 : 222222272? 
022026 PRINTF ‘'61$,RO 
022026 010046 MOV RO, -(SP 
022030 012746 022054 MOV #1%,-(SP) 
022034 012746 000002 MOV @2,-(SP) 
02 010600 MOV RO 
022042 104417 TRAP CSPNTF 
022044 062706 000006 ADD 06 ,SP 

3899 022050 EXIT DU 
022050 000167 -WORD J$JMP 
022052 ‘WORD 110032-2-. 


Sneeetieine EEE 


SEQ 0097 
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SEQ 0096 
| ADD AND DROP UNITS SECTIONS 


3900 022054 045 116 045 18: .ASCIZ /sNSA UNIT SDA DROPPED/ 
3901 “EVEN 
3902 022104 ENDDU 
022104 L10032: | 
022104 104453 TRAP C#DU 
3903 ioe 
$904 ; AUTO-DROP CODE SECTION. 
gee 
3906 022106 BGNAUTO 
022106 LSAUTO:: 
3907 022106 013705 002206 MOV CSRADOR RS :POINT TO DEVICE REGISTER 
3908 022112 012703 000550 MOV 6360. ,R3 ;ENOUGH TIME FOR 2400’ REEL TO REWIND 
3909 022116 004737 016250 10s: JSR PC, WALTF ;WAIT FOR SSR TO SET 
3910 022122 103420 CS 208 ;LEAVE WHEN SSR IS SET 
3911 022124 DELAY 250. ;WAIT FOR .25 SECONDS 
022124 012727 000372 MOV #250. ,(PC)+ 
022130 000000 . WORD 
022132 013727 002116 MOV LSOLY,(PC)+ 
022136 00000 .WORD 0 
140 005367 177772 DEC -6(PC) 
022144 001375 BNE i. 
005 177756 DEC -22(PC) 
022152 001367 BNE .-20 
3912 022154 005303 DEC 2 ;BUMP COUNTER DOWN 
3913 022156 001357 PNE 10$ :KEEP GOING 
3914 022160 004737 017202 JSR PC, CKDROP ;TRY AND DROP UNIT 
3915 022164 208: 
3916 022164 ENDAUTO ; UNUSED. 
022164 L10033: 


022164 104461 TRAP CsAUTO 





! 
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SEQ 0099 
CLEAN-UP AND REPORT CODING SECTIONS | 
3918 .SBTTL CLEAN-UP AND REPORT CODING SECTIONS | 
3920 +e 
3921 : THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
3922 ; EXECUTED AT THE END OF EACH PASS (OR SUB-P 
$928 ; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
a= 
3925 022166 BGNCLN 
022166 LSCLEAN: : 
3926 022166 013705 002206 MOV CSRADOR,RS POINT TO DEVICE REGISTER 
3927 022172 005737 003112 TST DUFLG 1 “DROPPED” FLAG IS SET ON.. 
3928 022176 100405 BMI 18 : AND GROSS CONTROLLER FAULT.. 
3929 "DON'T TRY TO XCT CLEANUP CODE. 
3931 022200 012765 000000 000002 MOV 00, TSSRCRS) ;00 SOFT INIT 
3932 022206 004737 016250 JSR PC; WAITF 
3933 022212 1%: 
3934 022212 28: ENDCLN 
022212 L10034: 
ated 022212 104412 TRAP = C$CLEAN 
3¢¢ 
3936 ; THE REPORT CODING SECTION CONTAINS THE 
3937 ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
g°¢ 
3939 022214 BGNRPT 
022214 LSRPT:: 
3940 022214 PRINTS @DEVSUM 
022214 012746 022456 MOV @DEVSUM, -(SP) 
022220 012746 000001 MOV @1,-(SP)_ 
022224 010600 MOV SP ;.RO 
226 104416 TRAP  C$PNTS 
22230 706 000004 ADD 
3941 022234 010246 MOV R2, -(SP) 
3942 022236 010 MOV R3,.-(SP) 
3943 022 01 MOV R4,-(SP) 
3944 022242 012704 003176 MOV ‘R4 ; GET START OF ERROR TABLE. 
3945 022 CLR R3 ; CLEAR UNIT NUMBER 
3946 022 011402 18: MOV (R4),R2 ; GET ERROR TABLE ENTRY € TEST IT. 
3947 022252 001467 BEQ 43 ; ZERO IF UNiT NOT RUN 
3948 022254 100066 BPL 43 
3949 022256 032702 040000 BIT @B1T14,R2 ; WAS UNIT DROPPED? 
3950 022262 001015 BNE 23 ; BR IF YES 
3951 022264 042702 170000 BIC 0tC7777,R2 ; GET ERROR COUNT FIELD 
3952 022270 PRINTS @DEVONL.R3,R2 ; PRINT 
022270 010246 MOV R2,-(SP) 
022272 010346 MOV R3,-(SP) 
022274 012746 022513 MOV @DEVONL , -(SP) 
022300 012746 0v0003 MOV $35 -cSP5 
022304 01 
022306 104416 TRAP CSPNTS 
022310 062706 000010 ADD $10, SP 
3953 022314 000446 BR 43 
3954 022316 020227 160000 28: CMP R2, 0160000 ; WAS UNIT NON-EXISTENT? 
3955 022322 001012 BNE 38 ; BR IF NO 
3956 022324 PRINTS @DEVNXR,R3 
022324 010346 MOV R3, -(SP) 
022326 012746 022563 MOV @DEVNXR, -(SP) 





i 
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SEQ 0100 
| CLEAN-UP AND REPORT CODING SECTIONS 


022332 012746 000002 MOV @2,-(SP) 
022336 010600 MOV P.RO 
022340 104416 TRAP CSPNTS 
022342 062706 000006 ADD 06 ,SP | 
3957 022346 000431 BR as | 
3958 022350 020227 160001 38: CMP R2, 0160001 ; WAS UNIT NOT READY AT STARTUP? 
3959 022354 001012 BNE 30% ; BR IF NO. 
3960 022356 PRINTS @DEVNRD,R3 
22356 346 MOV 3,-(SP) 
2360 012746 022645 MOV @DEVNAD, -(SP) 
022364 012746 MOV @2,-(SP) 
022370 01 MOV 
022372 104416 TRAP  CSPNTS 
022374 06 000006 SP 
3961 022400 000414 BR 
3962 022402 042702 170000 30%: BIC 6tC7777,R2 
3963 022406 PRINTS @DEVDRO.R3.R2 
022406 010246 MOV R2, -(SP) 
022410 10346 MOV 5. 
022412 012746 022726 MOV @DEVDRO, -(SP) 
2416 012746 3 MOV @3,-C(SP) 
022422 01 MOV ; 
022424 104416 TRAP CSPNTS 
2426 062706 000010 ADD 10,SP 
964 022432 062704 000002 4s: ADD @2,R4 
3965 022436 005203 INC R3 
022440 020427 003376 CMP R4, OERTABE 
3967 022444 103701 BLO 18 
3968 022446 012604 MOV (SP)+,R4 
3969 022450 912603 MOV (SP)+_R3 
3970 022452 012602 MOV (SP)+.R2 
3971 022454 ENDRPT ; UNUSED. 
022454 L10035: 
alas 022454 104425 TRAP = C$RPT 
3973 022456 045 116 045 DEVSUM: .ASCIZ /sNSADEVICE STATUS SUMMARY: sN/ 
3974 022513 045 101 040 DEVONL: .ASCIZ /#A UNIT SD3SA ONLINE, ERRORS = sDSN/ 
3975 022563 045 101 040 DEVNXR: .ASCIZ /#A UNIT A DROPPED, NON-EXISTENT REGISTERSN/ 
3976 022645 045 101 040 DEVNRD: |ASCIZ /s#A UNIT #D3SA DROPPED. NCT READY AT STARTUPSN/ 
3377 022726 045 101 040 DEVDRO: -ASCIZ /%A UNIT SD38A DROPPED; ERRORS = sDsN/ 
3979 


3980 022776 ENDMOD 
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| SEQ 0101 
_ CLEAN-UP AND REPORT CODING SECTIONS 


39865 .TITLE TSVS - HARDWARE TESTS 
3986 
3993 
3994 022776 BGNMOD TSVS 
022776 TSVS:: 


: 
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3 
v 


012700 
38 023002 004737 

3006 012737 
004737 


012703 
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TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 


023432 
016510 
000012 
023706 
002764 
023370 
000010 
015774 


002222 
000000 
016336 


002222 


002216 


-SBTTL TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
oa 
TEST DESCRIPTION: 


This test verifies thet e Hardwere Initialize command 
invoked after ea Write Character leties c sets up 
the Command, Message and Characteristic image blocks 


in the controller rem correctly. 
TEST STEPS: 
REPEAT FOR LOOPCNT 
= Do WRITE wert He: command. 
If the NBA bit in the on* register is NOT=0 then Print Error. 


Write to TSSR register to soft initialize the controller 
If controller R 310- 377 NOT=0 then Print Error 


END 
BGNTST 
MOV @TST13I0.RO sASCII MESSAGE 10 IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
ieueae MOV #10. ,LOOPCNT ;PERFORM 10 ITERATIONS 
“JSR PC, TI3REST ;SET PACKET TO START-UP VALUES 
MOV @TSTBLK+10. aks ;START OF TEST DATA 
MOV @TI3PACKET.R :GET THE ADDRESS OF COMMAND PACKET 
* MOV 08. PKECNTCR4) ;START WITH MINIMUM ALLOWABLE VALUE 
‘ JSR PC,SOFINIT ;WRITE TO TSSR TO SOFT INITIALIZE 
BCS 108 ;BR IF SOFT INIT OKAY 
MOV RO,R1 3SAVE CONTENTS OF TSSR 
ERROF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
TRAP CSEROF 
.WORD 100 
[WORD SFIERR 
[WORD SFIMSG 


3Do WRITE CHARACTERISTICS command. 
108: Cc FATF 


LR LG sCLEAR FATAL ERROR FLAG 
MOV R4, TSOBCRS) at THE PACKET ADORESS TO EXECUTE 
JSR PC,.CHKTSSR WAIT FOR SSR TO SET 
FORCE 12% nh ERROR IF FORCER=1 
6cs sBR IF CARRY SET (GOOD RETURN) 
+ RO,R1 iSAVE CONTENTS OF TSSR 
12%: ERRDF ERRNO,T15SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. 101 
T1I3SSR 
PKTSSA 
INC FATFLG sSET FATAL ERROR F' 


15%: CKLOOP 


LAG 
ERROR, IF FLAG SET 


sLOOP ON 


SEQ 0102 


a 
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SEQ 0103 


; 
0231 TRAP CSCLP1 
| 4063 023130 016501 000002 Mov TSSRCRS),R1 GET THE CONTENTS OF TSSR 
| 023134 012702 000200 MOV @SSR.R2 ‘EXPECTED CONTENTS OF TSSR 
|  @065 023140 032701 000100 BIT @OFL:R1 115 OFF-LINE GIT SET 7 
| 023144 001402 BEQ 258 IF NOT OFF-LINE 
4067 023146 052702 000100 BIS @0FL .R2 Ort OFF LING IN EXPECTED DATA 
sIf the NBA bit in the TSSR register is NOT*0 then Print Error. 
4070 023152 35: 
4071 023152 FORCERROR 278 
4072 023166 1 CHP OR, RL sDOES exPecTeD MATCH RECEIVED ? 
4073 023170 001404 6EQ 308 }OKAY IF MATCH 
4074 023172 NEXT. ERRNO 
4075 02317 27:  ERRHRD ERRNO, TISNBA,PKTSSR NBA NOT ZERO 
023172 104456 TRAP —- CSERHROD 
023174 000146 .WORD 102 
023176 023544 "WORD T1SNBA 
02 012046 “WORD PKTSSR 
4076 023202 30$:  CKLOOP ;LOOP ON ERROR ? 
rote, 104406 TRAP CSCLP1 
4078 sWrite to TSSR register to soft initialize the controller 
4079 023204 40s: 
02 004737 015774 JSR _—s«PC,, SOF INIT {WRITE TO TSSR TO SOFT INITIALIZE 
4081 023210 FORCERROR 428 
023224 103405 ecs. S08 :8R IF SOFT INIT OKAY 
4083 023226 010001 HOV anhtaeRt SAVE CONTENTS OF TSSR 
4085 023230 42$: ERROF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
023230 104455 TRAP —s CSEROF 
023232 000147 .WORD 103 
3234 003652 “WORD © SFIERR 
023236 012034 "WORD © SFINSG 
If controller RAM 310-377 NOT=0 then Print Erro 
4088 023240 012704 000310 b08:, MOV. @310,R4 ISTART METH LOC 310 
4089 023244 005002 CLR MEMORY EXPECTED SHOULD BE 000000 
02 105065 000000 CLRB —« TSDBCRS) SET MAINTENANCE 
4091 023252 004737 016336 JSR .CHKTSSR {WAIT FOR SSR READY 
02 010465 000000 60¢: MOV  R4,TSDBCRS) CT RAM ADDRESS 
4093 023262 004737 016336 JSR —s- PC CHKTSSR WAIT FOR SSR READY 
02 116501 000000 MOVE _—sTS@ACRS), RL READ LOC CONTENTS 
4095 023272 FORCERROR 62$ .NOTSSR ; 
023 120102 CMPB R2 CHECK MEMORY FOR 
4097 023304 001406 6EQ 70% }GRANCH IF DATA OKAY 
4098 023306 NEXT .€ 
4099 023306 62¢:  ERROF ERRNO, T13MEM, RAMEXP ;MEMORY NOT ZERO AFTER INIT. 
023 104455 TRAP - CSEROF 
023310 000150 WORD 104 
3312 023505 “WORD © T13MEM 
023314 015530 : RAMEXP 
4100 023316 005237 002222 INC FATFLG ;SET THE FATAL ERROR FLAG 
4101 023322 70$:  CKLOOP 
023322 104406 TRAP CSCLP1 
4102 023324 ESCAPE TST EXIT ON FATAL ERROR 
023324 104410 TRAP  CSESCAPE 
023326 0004 “WORD L10036-. 





-- = eee 
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SEQ 0104 
TEST i: INITIALIZE AFTER WRITE CHARACTERISTICS 
4104 023330 62%: INC R4 3LOOK AT NEXT RAM LOC. 
4105 023332 7 000400 CMP R4, 0400 sAT TOP OF RAM ADDRESS SPACE 
4106 023336 001347 BNE 60% i BRANCH TILL ALL MEMORY TESTED 
4109 023340 005737 002222 TST FATFLG 14 FATAL ERRORS ? 
4110 023344 001402 BEQ 160% IF NOT 
4111 023346 004737 017202 JSR PC. CKDROP i TRY TO OROP THE UNIT 
4112 023352 004737 016456 160%: JSR PC, TSTLOOP sO0NE ALL ITERATIONS? 
4113 023356 10 Bcc 1658 :8R IF YES 
4114 023360 000137 023014 JMP T1I3L00P sLOOP UNTIL ITERATION COUNT DONE 
4115 023364 165%: 
4116 023364 ExIT TST 
023 104432 TRAP CsExIT 
023 000366 -WORD 1L10036-. 
4117 
4116 
4119 3° 
4120 sLOCAL STORAGE FOR THIS TEST 
i i 
4126 023370 TISPACKET: sCOMMAND PACKET FOR TEST 
4127 023370 100004 - WORD 1 | WRITE CHARACTERISTICS COMMAND, WITH ACK 
4128 023372 023400 - WORD TI3SDATA sADDRESS OF CHARACTERISTICS BLOCK 
4129 023374 000000 -WORD O 
Size 023376 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 
4132 023400 TI3DATA: sCHARACTERISTICS — BLOCK 
4h 023400 023412 .- WORD T136FR sADDRESS OF MESSAGE BUFFER 
4134 023402 -WORD O 
4135S 023404 000016 .- WORD 14. sLENGTH OF MESSAGE BUFFER 
is 023406 000000 -WORD 0,0 
4138 023412 TI3BFR: .6LKW 8. sMESSAGE BUFFER 
41 sLOCAL TEXT MESSAGES FOR TEST 
aiai - 
Sues 0234 111 156 151 TSTi3I0: -ASCIZ ‘Initielizetion After WRITE CHARACTERISTICS’ 
Shas o23: iii 156 143 TL3MEM: .ASCIZ ‘Incorrect RAM Dete After init’ 
4145 023544 127 122 111 TISNBA: "ASCIZ ‘WRITE CHARACTERISTICS Commend Not Accepted 
rr 023617 103 157 156 TISSSR: .ASCIZ ‘Contents of TSSR Incorrect + Ay WRITE CHARACTERISTICS: 
4188 
3150 ‘ 
3 
Sis sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
’ 
aiss s- 
: ewe 
sis 
rrr 4 023706 TISREST: 
4158 023706 SAVREG sSAVE THE REGISTERS 
4159 023712 012701 023370 Mov @TISPACKET .R1 iSTART OF OF THE PACKET 
4160 023716 012721 100004 MOV #100004 ,(R1)>+ WRITE CHARACTERISTICS WITH ACK 
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SEQ 0105 
TEST i: INITIALIZE AFTER WRITE CHARACTERISTICS 
4161 023722 012721 asses MOV @TISDATA,CR1)+ sADDRESS OF CHAR DATA BLOCK 
4162 023726 005021 CLR he: sEXTENDED SS 


ADORE 
30 000010 MOV sSIZE OF DATA BLOCK IN BYTES 
4164 023734 012721 0235412 MOV oriserR. (R1)+ ; ADDRESS OF MESSAGE BUFFER 


| 
4165 023740 005021 CLR CR1)+ 
4166 023742 012721 000016 MOV @14.,CR1)+ sLENGTH OF MESSAGE BUFFER 
4167 023746 005021 CLR CR1)+ 
4168 023750 005011 CLR (R1) 
4169 023752 000207 RTS PC sRETURN 
023754 L10036: 
023754 104401 TRAP CsETST 


rte | -SBTTL TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 
ig 


4175 ; THIS TEST VERIFIES ay THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
4176 iBSELO SELECT CO oe OF 0 (NO-OP) EXECUTES CORRECTLY. IT ALSO 
4177 iene bee THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
4178 sMODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
rt pe + COMFIAND DECODING AND HANDLING SEQUENCES. 

; 
41861 3° 


te) Te: 
4187 023756 012700 025571 MOV @TST14I0,RO sASCII MESSAGE TO IDENTIFY TEST 
4188 023762 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

4189 023766 012737 000024 002216 MOV #20. ,LOOPCNT sPERFORM 20 ITERATIONS 

4190 0235774 T14LO0P: 

4191 023774 BGNSUB s4ASIISAAAASS er ere SAGAS ASASASS 


023774 104402 TRAP CsBSuUB 

4192 023776 004737 025636 JSR PC,T1I4REST sSET PACKET TO INITIAL VALUES 

4193 024002 004737 025674 JSR PC,T1I4RST ;SET PACKET TO INITIAL VALUES 

4194 024006 SETPRI #PRIOO ;LOWER PRIORITY TO ALLOW INTERRUPTS 
024006 012700 000000 MOV #PRIOO RO 
024012 104441 TRAP CsSPRI 

4195 024014 5%: 

4196 024014 BGNSEG 3>>>->>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
024014 104404 TRAP CS$BSEG 

4197 024016 004737 015774 JSR PC, ree 300 SOFT INIT OF CONTROLLER 

4198 Seeoae 103405 BCS 4 ;6R IF SOFT INIT = OK 


MOV O.Ri OF TSSR 
4203 024026 ERROF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR RE INIT 
024026 104455 TRAP — 
4 


024034 
4204 024036 108: 
4205 024036 012704 025150 MOV @T14PK2,R4 sSUBROUTINE NEEDS PACKET ADORESS 
4206 024042 004737 010662 JSR PC,WRTCHR sISSVE WRITE CHARACTERISTICS 
4207 024046 103405 BcS 116 :BR, IF C I D OK 

024050 MOV : SAVE CONTENTS OF TSSR 
4212 024052 ERRHRD ERRNO, WRTMSG , SFIMSG WRITE CHARACTERISTISC > 
024052 104456 CSERHRD 
024054 000312 "loro 202 
024056 005056 -WORD  WRTMSG 
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4257 


024126 


EEE E EY HEHE 


aeeasesskss 


0241 
162 
66 


012034 


015510 


104405 


104403 
005737 
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002222 


002224 


011114 


002222 


118: 


158: 


228: 


258: 


598: 


ENOSEG 


ENDSUB 


TST 


FATFLG 
INTRECV 
@T14PACKET 
R4,1S0B8 


(RS) 
PC‘ CHKTSSR 
153 


R4 
RO,R1 
ERRNO, T14SSR,PKTSSR 


FATFLG 
SEG 
INTRECV 


228 
ERRNO, TI4NINT ,PKTSSR 


bey Sls 


ERRNO, T14NBA,PKTSSR 


= + ame 
ERRNO, PKTRAM, RAMERR 


FATFLG 


sCLEAR FATAL ERROR FLAG 


sCLEAR_ INTERRUPT RECEIVED Re 


sSET UP NEW WRT. SUBSYS 
iSET THE PACKET ADORESS 


On TF FOR SSR 


TO SET 
F CARRY SET (GOOD RETURN) 


i SAVE CONTENTS 


S OF TSSR 
sDEVICE FATAL SSR FAILED we 


;SET FATAL ERROR F 


LAG 
sLOOP ON ERROR, IF FLAG ser 


BY-PASS SUBTEST IF FATAL ERROR 
TRAP 


:D0ID AN 
;BRANCH IF YES 


INTERRUPT OCCUR ? 


TRAP 
. WORD 
- WORD 
wOoRD 


:GET THE CONTENTS OF TSSR 
;EXPECTED aerant se OF TSSR 


sIS OFF-LINE BIT 
sBRANCH IF NOT 


OF F -LINE 
iSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 


;OKAY IF MATCH 
sNBA NOT ZERO 


;CHECK RAM TO MEMORY 
;RAM OK GO 
3; THEY DON’T MATCH 


TRAP 
- WORD 


SF IMSG 


CSEROF 
203 
T14SSR 
PKTSSR 
CsCLPi 
CSESCAPE 
10000$-. 


CSERHRO 
204 


TI4NINT 
PKTSSR 


g<eeceecececee END SEGMENT pee e eee eacaa ae: 
10000$: 
TRAP 


CsESEG 


ENANNNANANNANN END SUBTEST NANANNNNAAANS 
L10040: 
TRAP 


sANY FATAL ERRORS ? 


CsESuUB 


SEQ 0106 
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TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


4258 024236 001402 
9 024240 004737 017202 
024244 


000000 
0444 
012704 025130 
37 025636 
025674 


015774 


010662 


002224 
024510 
007000 
000000 
016250 


0 
4305 024372 


BEQ 60% 

JSR PC ,.CKDROP 
608: 
3 e 


: 
sTEST 2, SUBTEST 2 


ee ee ee 


sBRANCH IF NOT 
sTRY TO DROP THE UNIT 


: 
sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
sWRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED 


BGNSUB 


SETPRI #PRIOO 


S$: MOV @T14PK2 ,R4 
JSR PC, TI4REST 
JSR PC, T1I4RST 


BGNSEG 

JSR PC, SOF INIT 

6cs 108% 

MOV RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 
108%: 

JSR PC, WRTCHR 

bcs 11% 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG,SFIMSG 
118: 


CLR INTRECV 
aioe tad R4 
#007000, (R4) 
MOV R4, TSOBCRS) 
JSR isin ITF 


ERAND, TL4SSR.PKTSSR 


15%: CKLOOP 


3444444444444 a SUBTEST /////44444/747 
2.2: 


TRAP Cs6SuUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 


TRAP CsSPRI 
sGET THE ADORESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 
sRESTORE PACKET TO STARTING VALUES 


7>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


:00 SOFT INIT OF CONTROLLER 
s8R IF SOFT INIT = OK 
i SAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR nae Pet 


CSEROF 
-WORD 207 
-WORD SFIERR 
-WORD SFIMSG 
sZSSUS WRITE CHARACTERISTICS 
COMMAND sae OK 
iSAVE CONTENTS OF TSSR 
sWRITE SUBSYSTEM MEMORY ona ee 
CSERHRO 
TUORD 208 
-WORD WRTMSG 
-WORD SFIMSG 


sCLEAR INTERRUPT RECEIVED FLAG 
SET-UP WITH WRT SUBSYS MEM PACKET 
MODE BITS 


Y SET ¢ 
iSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAD TO. SET 


CSEROF 
-WORD 209 
-WORD T14SSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 


SE@ 0107 
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4306 024374 


002224 


000100 
000100 


011114 

4326 

4330 024 
02 


Ss 
015510 
104405 


104403 


104432 
001246 


024510 


344 024510 100206 
} 024520 


ile i 





228: 


258: 


30%: 
358: 


59$: 


ESCAPE 


ENDSUB 


EXIT 
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SEG 


— 
ERRNO, TI4NINT ,PKTSSR 


TSSRCRS),R 
osc r sch TSREU, R2 
OOFL RI 


OFL ,R2 
R2,R1 


30% 
ERRNO, T142REJ,PKTSSR 


Tea 
ERRNO, PKTRAM,RAMERR 


TST 


oa 
;LOCAL STORAGE FOR THIS TEST 


- ¢10>€177770 

TL4PACKET: - 

.WORD 100206 

-WORD T14DATA 

-WORD 0 

-WORD 6. 
T14DATA: 
T148S0O: .BYTE 0 
T148S1: .BYTE 0 
T14BS2: .WORD 0 

-WORD O 
T1I4BFR: .BLKW 128. 


SEQ 0108 
;B8Y-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
100008 -. 
;0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
«WORD 210 
WORD TI4NINT 
.WORD PKTSSR 
3GET THE CONTENTS OF TSSR 
EXPECTED CONTENTS OF TSSR 
:IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
3SET OFF-LINE IN EXPECTED DATA 
;D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sCOMMAND NOT REJECTED 
TRAP CSERHRD 
. WORD 11 
- WORD T142REJ 
- WORD TSSR 
;CHECK RAM TO MEMORY | 
;RAM GO 
s THEY DON'T MATCH 
TRAP CSERHRD 
.- WORD 212 
PKTR 
RAMERR 
3<<eeeeee Cece e END SEGMENT Peace aeacaae 
100008: 
TRAP CSESEG 
s\ANANANNNNANNN END SUBTEST \ANANANANANAN 
L10041: 
TRAP CsESuB 
;ALL DONE THIS TEST 
TRAP CsExIT 
. WORD L10037-. 
sCOMMAND PACKET FOR TEST 
sWRITE SUBSYSTEM WITH IE, ACK 


MEM. COMMAND, 
;ADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sBSELO BYTE 

s;BSEL1 BYTE 

BATA WORD 


T 
;MESSAGE BUFFER 





cisinianiaaiataatl 
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TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


4357 025130 


4360 025130 100204 
4361 025132 025140 
000000 


4 
4363 025136 000010 


025505 
43862 025571 102 141 


4395 025642 012701 024510 
025646 100206 

4397 025652 012721 024520 
0256 005021 

000006 


4408 025700 012701 
te] 012721 
4410 025710 oheles 


005021 
4412 025716 012721 


025130 
100204 
025140 
000010 





111 


160 
163 


=<, 61026177770 
T14PK2: sCOMMAND PACKET FOR TEST 
.WORD 100204 ;WRITE CHARA. MEM. CMND., WITH IE, ACK 
- WORD TL4DTA ;ADDRESS OF SELECT DATA BLOCK 
[WORD 8. ;STARTING VALUE OF BLOCK SIZE 
T140TA: ;SELECT DATA BLOCK 
- WORD TL4BFR sADDRESS OF MESSAGE BUFFER 
[WORD 256. ;LENGTH OF MESSAGE BUFFER 
[WORD 0,0 


Sd 
;LOCAL TEXT MESSAGES FOR TEST 
ge 


TI4NBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Commend Not Accepted’ 
T142REVU: ASCIZ ‘WRITE SUBSYSTEM MEMORY Not Re aaend With Non- Zero Mode Field’ 
T14SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY’ 


TI4NINT: ASCIZ ‘Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY’ 
: "ASCIZ ‘Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY’ 
-ASCIZ ‘Basic WRITE SUBSYSTEM MEMORY Command’ 


' 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 

3 

ge 


TI4REST: 
SAVREG SAVE THE REGISTERS 
MOV @T14PACKET,R1 sSTART OF THE PACKET 
MOV #100206, (Ri)+ ;WRITE SUBSYSTEM MEM. WITH ACK, IE 
MOV OT14DATA, (R1)+ sADDRESS OF DATA BLOCK 
CLR (R1)+ ;EXTENDED ADDRESS 
MOV 06. ,(R1)+ ;SIZE OF DATA BLOCK IN BYTES 
CLR CRid+ ;CLEAR BSELO AND BSEL1 
CLR (R1)+ ;CLEAR SEL2 
CLR (R1) ;CLEAR DATA AREA 
RTS PC ;RETURN 
TI4RST: 
SAVREG ;SAVE THE REGISTERS 
V @T14PK2,R1 ;START OF THE PACKET 


MOV #100204, (R1)-+ 
MOV @T140TA,(R1i)+ 


OO aRE CHARA. WITH ACK, IE 
AVDRESS OF > GHARATSTICS DATA BLOCK 


CLR C(R1)+ SEXTENDED A ss 
sSIZE OF DATA BLOCK IN BYTES 


MOV @8.,(CR1)+ 
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| TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


| 
| 
| 


4413 025722 012721 024526 MOV @T14BFR,CR1)+ sMESSAGE BUFFER ADDRESS 
4414 025726 005021 CLR . 
4415 025730 012721 000400 MOV #256. ,(R1)+ sLENGTH OF MESSAGE BUFFER 
4416 025734 005021 CLR (R1)+ 
4417 025736 005011 CLR (R1) 
4418 025740 005037 024526 CLR T14BFR sCLEAR 1ST LOC IN MESSAGE BUFFER 
4419 025744 000207 RTS PC sRETURN 
4420 025746 ENOTST 
025746 L10037: 
025746 104401 TRAP CsETST 


SEQ 0110 
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SEQ 0111 
| TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 
| 4422 
zak -SBTTL TEST 3: OMA MEMORY ADDRESSING 
4425 soe 
4426 3; TEST 3 
4427 3 
Sass s TEST DESCRIPTION 
8 
4430 3 This test verifies that the controller can properly address and 
4431 3 access all available CPU memory (other than that occupied by the 
4432 3 diagnostic and diagnostic supervisor code) for both reading (DATI) 
4433 ; and writing (DATO). Verified ere the LSI-11 Bus drivers for all 
4434 F aveilable address lines. Up to this point only 16 bits have been 
4435 $ used for DMA transfers. 
4436 3 
4437 3; TEST STEPS 
4438 ; 
4439 s REPEAT FROM 1 TO LOOPCNT 
4440 3 BEGIN ; 
4441 ; Do Subtest 1 - Verify GET STATUS selected locations — 
4442 ; Do Subtest 2 - Verify message packets selected locations. 
4443 ; Do Subtest 3 - Verify Characteristic data selected locations 
44ag 3 Do Subtest 4 - Verify NXM to selected invalid addresses 
44aS H ND 
4486 3 
4447 ane 
4448 
4449 025750 BGNTST 
025750 T3:: 
4454 025750 012700 030020 MOV #TST12ID,RO sASCII MESSAGE TO IDENTIFY TEST 
4455 025754 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
4456 025760 012737 000012 002216 MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
4457 025766 005237 003150 INC T3BFLG sSET TEST FLAG 
ret 025772 004737 020626 JSR PC ,MEMCK ;CHECK MEMORY 
ase 025776 T12LO0P: ;LOOP ON TEST LABEL 
rss | -SBTTL TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 
zoe 
4464 ; TEST 3: SUBTEST 1: 
4465 F 
Seat ; SUBTEST DESCRIPTION: 
3 
4468 ; This subtest verifies the controller can fetch a get status 
4469 3 command from all available memory locations. 
4470 3 Two word blocks are tested one at a time by first setti 
4471 ; ell available memory to a background pattern of 125252. 
4472 : A Get Status command is then executed to various addresses in 
4473 F each available memory 4k word block. The various addresses 
$373 3 are determined by floating a 1 then a O through the address bits. 
F 
4476 3; TEST STEPS: 
4477 ; 
4478 ’ BEGIN 
4479 3 Write to TSSR to soft initialize 
4480 3 Do a WRITE CHARACTERISTICS to setup a message buffer 
; 
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TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 


rt | 3 ay tae SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K | 
3 1 
4484 ’ Get a valid modulo-4 test address ' 
4485 3 Do a GET STATUS command from the test address 
4486 3 END } 
4487 Fy END 
4490 025776 BGNSUB 34/////////// BEGIN SUBTEST ////////7/7/ 
025776 T3.1: 
025776 104402 TRAP Cs6SuUB 
4491 
4492 
4493 sWrite to TSSR to soft initialize 
4494 026000 004737 015774 JSR PC,SOFINIT 300 SOFT INIT OF CONTROLLER 
4495 026004 103405 BCS 15% ;68R IF SOFT INIT = OK 
4496 026006 NEXT. ERRNO 
4497 026006 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4498 026010 ERRDF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL ERROR een | P 
026010 104455 CSEROF 
026012 000455 WORD 301 
026014 003652 “WORD SFIERR 
eave 026016 012034 -WORD SFIMSG 
4500 ;Do a WRITE CHARACTERISTICS to setup a message buffer 
4501 026020 15%: 
4502 026020 012704 027610 MOV @T12PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
4503 026024 004737 031170 JSR PC,.T12SWRT RESTORE get TO STARTING VALUES 
4504 026030 005037 003134 CLR KTENABLE 3 TURN OFF 11 
4505 026034 010465 000000 MOV R4, TSOBCRS) 3SET THE packet ADDRESS 
4506 026040 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4507 026044 FORCERROR 17$ 
4508 026060 103405 ecs 20% ;B8R IF SSR SET IN CHKTSSR 
4509 026062 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4510 026064 NEXT .ERR' 
4511 026064 17%: ERRDF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
026064 104455 TRAP CSEROF 
026066 000456 -WORD 302 
026070 030122 -WORD Ti2WRTSSR 
nen 026072 012046 -WORD PKTSSR 
45135 ;Verify a Get Status can be fetched from each address 
4514 ;Get a valid modulo-4 test address 
4515 3:00 a GET STATUS command from the test addre 
4516 026074 005037 002222 20%: CLR FATFLG SCLEAR FATAL ERROR FLAG 
4517 026100 005037 027660 CLR T12KT sTEST ABOVE 28K SWITCH 
4518 026104 012702 027664 MOV @T12BLK ,R2 sPOINT TO TEST PATTERN TABLE 
4519 026110 T121L00P: 
4520 026110 005037 003134 CLR KTENABLE sTURN OFF ABOVE 28K TEST FLAG 
4521 026114 012201 MOV CR2)+,R1 ;GET TEST PATTERN ADDRESS 
005000 CLR RO sASSUME NO TEST ABOVE 28K 
120 005737 027660 TST T12KT iTEST ABOVE 28K THIS TIME? 
4524-026124 001407 BEQ R IF 
4525 026126 016200 177776 MOV -2(R2),RO iGET TEST PATTERN AGAIN 
4526 026132 042700 177774 BIC @*C<A1716>,RO sSAVE 18 BIT ADDRESS ONLY 
4527 026136 012737 000001 003134 MOV #1, KTENABLE T 


E ;TURN ON ABOVE 28K TEST FLAG 
4528 026144 004737 030666 25%: JSR PC, TI2CONVERT sCONVERT TEST PATTERN TO TEST ADORESS 
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SEQ 0113 
STATUS SELECTED LOCATIONS 
Bcc 65$ ;8R IF INVALID PACKET ADDRESS 
027654 MOV T12LOADD .R4 sCOPY CURRENT PACKET LOW ADDRESS | 
027652 MOV Route? R3 ;COPY CURRENT PACKET HIGH ADDRESS 
031236 JSR C, T12SETGET +t CURRENT PACKET TO GET STATUS 
177774 BIC erecAlTio>, R3 sSAVE ADDRESS BITS 17+16 j 
BIS }SETUP 18 BIT PACKET ADORESS 
017274 JSR Re RTOFF sTURN OFF KT-11 
000000 MOV R4, TSOBCRS) iSET THE PACKET ADORESS TO EXECUTE 
016336 JSR PC,.CHKTS sWAIT FOR SSR TO SET 
FORCERROR 2s 
BCS 40% 368R IF SSR SET IN CHKTSSR 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
328: ERRDOF ERRNO,T12GETSSR,PKTGETS ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 303 
-WORD T12GETSSR 
-WORD PKTGETS 
40%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 
65%: 
FORCEXIT 80$ 
030016 CMP R2,@T1L2TBE ;DONE ALL TSTBLK TEST PATTERNS? 
BHIS 70$ 38R IF YES 
026110 JMP T121L00P 300 ANOTHER MODULO- 4 ADDRESS 
027660 708: TST T12KT sDONE ABOVE 28K TESTING TOO? 
BGT 80% 36R IF YES 
003132 Gr era +4) MEMORY ABOVE 28K ON SYSTEM? 
3 
000001 027660 MOV #1,T12KT 3SET SWITCH 
027664 MOV @T12BLK ,R2 trig TEST PATTERN TABLE 
026110 JMP T121L00P ABOVE 28K TESTING 
017274 80%: JSR PC ,KTOFF ; TURN OFF KT11 
ENDSUB s\N\ANANANNANNN END SUBTEST N\ANANANNANANN 
L10043: 
TRAP CsESuB 
002222 TST FATFLG sANY FATAL ERRORS ? 
BEQ 100% sBRANCH IF NOT 
017202 sees JSR PC, CKDROP sTRY TO OROP THE UNIT 


-SBTTL TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
o¢ 
; TEST 3: SUBTEST 2: 
SUBTEST DESCRIPTION: 


This subtest verifies the controller can deposit message packets 
to ell aveileble memory locations. 

Write Cheracteristics commands are executed with eye 

buffer addresses set to various addresses in each available 
memory location. 

The various eddresses are determined by floating a 1 then a 0 
through the eddress bits. 


TEST STEPS: 
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4580 


005037 
012703 
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| TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 


015774 


027610 


002222 
027664 


177774 
000003 


BEGIN 
; Write to TSSR to soft initialize 
3 Do e WRITE CHARACTERISTICS to setup e message buffer to compere 
; os te SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
: Get a valid modulo-4 test address 
3 Set the earuet nessage buffer to the TEST ADDRESS 
8 Do ea WRITE CHARACTERISTICS 
3 ew Restore the test message buffer to background pattern 
3 
3 END 
ge=2 
BGNSUB ALAA —— GAGA GASS 
"TRAP ss C$BSUB 
sWrite to TSSR to soft initialize 
JSR PC, SOFINIT 300 SOFT INIT OF CONTROLLER 
BCS 15% 368R IF SOFT INIT = OK 
NEXT .ERRNO 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO, SFIERR, SFIMSG ;DEVICE FATAL ERROR oe INIT 
TRAP CSEROF 
-WORD 304 
‘WORD  SFIERR 
«WORD SFIMSG 
180 a WRITE CHARACTERISTICS to setup a message buffer to compare 
“MOV @TL2PACKET.R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR PC, T12SWRT iSET PACKET TO WRITE CHARACTERISTICS 
JSR PC ,KTOFF sTURN OFF KT-11 
MOV R4,TSOBCRS) iSET THE PACKET ADORESS 
SR CHK sWAIT FOR SSR TO SET 
FORCERROR 17% 
BcS 20% 3;8R IF SSR SET IN CHKTSSR 
+ . RO,R1 sSAVE CONTENTS OF TSSR 
178: ERRDF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
-WORD 305 
-WORD T12WRTSSR 
-WORD wKTSSR 


:Get ea santé | - test address 
:Set the FECA ssege pytver ag the test address 
:Do e WRITE CHARACTERES TIC 
208: CLR sCLEAR FATAL ERROR FLAG 
ene” OTIOBLK, R3 sPOINT TO TEST PATTERN TABLE 
MOV CR3)+,R1 ;GET TEST PATTERN ADDRESS 
MOV 1,R0 ;GET ADDRESS ALL “18 BITS” 
BIC #177774,RO ;LEAVE ONLY A17 AND Ai6 
BIC #3,R1 sGET RIO OF A17 AND A16 


SEQ 0114 
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SEQ 0115 

' TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
4626 026460 004737 030666 JSR PC, TI2CONVERT 4 ae gl TEST PATTERN TO TEST ADDRESS 

4627 026464 103402 6cs 25% 38R IF VALIO MESSAGE BUFFER ADDRESS 

| 4628 026466 000137 026564 JMP 150% 3GET ANOTHER TEST PATTERN TO TRY ' 

j 4629 026472 012704 027610 25%: MOV @T12PACKET ,R4 3SET THE COMMAND PACKET ADDRESS 

i 4630 026476 004737 031170 JSR + F TL2SWRT sSETUP TI2PACKET TO WRITE CHAR. 

1 4631 026502 013737 027654 027620 MOV TISLOADD. T12DATA sSETUP LOW ORDER MESSAGE BUFFER ADD. 
4632 026510 013737 027652 027622 MOV TL2HIADD , TL2DATA+2]) ;SETUP HIGH ORDER MESSAGE BUFFER ADD. 
4633 026516 004737 017274 JSR PC .KTOFF sTURN OFF KT-11 
4634 026522 010465 900000 MOV R4, TSOBCRS) iSET THE PACKET ADDRESS TO EXECUTE 
4635 026526 004737 016536 JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
4636 026532 FORCERROR 328 
4637 026546 103405 6cs 50% 38R IF SSR SET IN CHKTSSR 
4638 026550 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 
4639 026552 NEXT .ERRNO 
4640 026552 328: ERROF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 

026552 104455 TRAP CSEROF 
026554 000462 -WORD 306 
026556 030122 -WORD TiI2WRTSSR 
026560 C12046 . PKTSSR 
4641 026562 508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
026562 104406 TRAP CSCLP1 
4642 026564 1508: 
4643 026564 FORCEXIT 160$ 
4644 026574 020327 030016 CMP R3,@T1L2TBE ;00NE ALL TST12BLK TEST PATTERNS? 
4645 026600 103002 BHIS 160% ;6R IF YES 
4646 026602 000137 026444 JMP T122L00P 300 ANOTHER MODULO- 4 ADDRESS 
4647 026606 004737 017274 1608: JSR PC ,KTOFF 3TURN OFF KT11 
4646 026612 ENDSUB aNNNNNANANANANNSN a SUBTEST NANNNNNNNANNN 
026612 L10044: 
026612 104403 TRAP CsESUB 
4649 026614 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
4650 026620 001402 BEQ 180% ;BRANCH IF NOT 
4651 026622 004737 017202 JSR PC ,.CKDROP sTRY TO DROP THE UNIT 
4652 026626 1608: 
4653 
aess 
rts .SBTTL TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
f see 
46 3 TEST 3: SUBTEST 3: 
4659 3 
oaat ; SUBTEST DESCRIPTION: 
3 
4662 ; This subtest verifies the controller can fetch ea 
4663 : Write Cherecteristics date block from ell eveilaeble 
4664 3 memory locations. 
4665 3 Write Cherecteristics commends ere executed with 
4666 3 cherecteristic dete blocks eat verious memory addresses 
4667 : The verious memory eddresses ere deternined” by floating 
Saas 3 e 1 then e O through the eddress bit 
3 
4670 3; TEST STEPS: 
4671 8 
467 3 GIN. 
p+ th 3 Write to TSSR to soft initielize 
3 
4675 3 REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 





 *‘TSvS - 
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TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


015774 


003134 


177774 
000003 
027660 


177776 
177774 
00000 


030666 


017274 
000000 
016336 


003134 


eddress 
Set the test oa cherecteristics dete pointer to the 
we cherecteristic dete in test eddress block 


Do e WRITE CHARACTERISTIC command 


3 BEGIN 
8 Get e valid test 
F 
: test 
3 Store B 
3 
’ ENO 
3 END 
gee 
BGNSUB 


sWrite to TSSR to soft initialize 
JSR PC, SOF INIT 
BcSs 20% 


NEXT .E 
MOV RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 


;Get ea vile test eddress 
20%: 


CLR FATFLG 
CLR T12KT 
MOV @T12BLK,R3 
T123L00P : 
CLR KTENABLE 
MOV (R3)+,R1 
MOV R1,RO 
BIC #177774,RO 
BIC @3,R1 
TST T12KT 
BEQ 25% 
MOV -2(R3 
BIC Ste caaiie> .RO 
MOV $1 KTEMASLE 
25%: JSR PC. TI2CONVERT 
Bcs 308 
UMP 608 
gSet the test posket gracecter letice ate 
$: MOV eT12PACK Ra 
J qioSuAT: 
MOV T12LOAD0 ,PKLOWCR4) 
MOV TiSHEADS PKHI(R4) 
JSR PC,T1 
:Do @ WRITE CHARACTERISTIC command 
JSR PC .KTOFF 
MOV R4.TSDBCRS) 
JSR PC. CHKTSSR 
FOR 
Bcs $ 
MOV RO,R1 


ALAA LLL rent SUBTEST LA 


TRAP CsBSUB 
300 SOFT INTT OF CONTROLLER 
s6R IF SOFY INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 
TRAP CsEROF 
. 307 
° SFIERR 
-WORD SFIMSG 


sCLEAR FATAL ERROR FLAG 
sTEST ABOVE 26K SWITCH 
sPOINT TO TEST PATTERN TABLE 


s TURN OFF ABOVE 28K TEST FLAG 
iGET TEST PATTERN ADORESS 
sGET are ae “18 a 


sGET RID OF Ai? AND Ale 
ABOVE 26K THIS TIME? 


3 IF NO 
3sGET TEST PATTERN AGAIN 
sSAVE 18 BIT ADDRESS ONLY 
sTURN ON ABOVE 28K TEST FLAG 
sCONVERT TEST PATTERN TO TEST ADORESS 
36R IF VALIO TEST ADORESS 
3GET NEXT TEST PATTERN 
inter to the test 
ADORE 


SS_OF COMMAND PACKET 
;RESTORE PACKET TO STARTING VALUES 
iSTORE CHAR. DATA PTR LOW ADDRESS 
sSTORE CHAR. DATA PTR HIGH ADORESS 
sSTORE EXPECTED DATA IN DATA BLOCK 


sTURN OFF KT-31 
sSET THE PACKET ADORESS TO EXECUTE 


sWAIT FOR SSR TO SET 


sBR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


SEQ 0116 
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SEQ 0117 —, 
TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
' 
4727 027026 NEXT . ERRNO 
4728 027026 100488 328: ERROF ERRNO, TI2WRTSSR,PKTSSR ;,DEVICE FATAL SSR FABLES Te. SET coenar 
027030 000464 ; -WORD 306 
027032 030122 -WORD TI2WRTSSR 
4729 oo 7036 —— 408 CKLOOP LOOP ON ERROR, IF FLAG ser en 
: 6 . 
oo rose 104406 TRAP CSCLPi 
4730 027040 608: 
4731 027040 020327 030016 CMP R3, @TI2TBE sD0NE ALL TSTBLK TEST PATTERNS? 
4738 027044 10 SHIS 65% s8R IF YES 
& 027046 000137 026664 JMP T123L00P 300 ANOTHER MODULO- 4 ADDRESS 
QTE4 oereee 005737 027660 65%: TST TL2KT sD00NE ABOVE 26K TESTING T1007? 
4735 3 03012 BGT 708 36R IF YES 
736 00s 003132 TST KTFLG sANY MEMORY ABOVE 28K ON SYSTEM? 
4737 027064 001407 6EQ 708 3s6R IF 
4738 027066 012737 000001 027660 MOV @1,T12KT SET CH 
4739 027074 012703 027664 MOV @Ti28LK,R3 iRESE TEST PATTERN TABLE 
4740 027100 00137 026664 weep T123L00P 100 26K TESTING 
4741 027104 004737 017274 708: JSR PC ,KTOFF sTURN OFF KT1i1 
a? ptt 4 ENOSUB PANAAAAAAAAAAA ary P+ mea ANAANANAANANN 
: 
027110 104403 TRAP CsEsuBs 
4743 027112 005737 002222 TST FATFLG sANY FATAL aes ? 
4744 027116 001402 BEQ 75% ;ORANCH 
4745 027120 004737 017202 JSR PC. CKDROP i TRY TO OROP THe UNIT 
pd. 027124 758: 
rd | -S8TTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADORESSES 
aoe 
4750 s TEST 3: SUBTEST 4: 
475i 3 
pie 3; SUBTEST DESCRIPTION: 
3 
4734 3 Thie evbtest verifies the NXM error bit in the TSSR 
4735 s vop' eter ie set when attempting to fetch dete (e cherecteristic 
& ’ dete 2} ) from selected xistent locations. 
4 3 eile to set it ie likely thet en (SZ-i1 Bus driver is 
47S5e ’ a al to eseert = eddress line 
4759 ’ Addresses tested aslude ell coabinatiene of high-order eddress 
4760 3 bite Ci.e bite 16- “21 
4761 3 SLOSIESSAAKSSHHELHOSSSHOGHHEHENASEHOSHSAELHSSEHS( SHOVHESHOB* 9OSE8ESHOH 
2° 3 CAUTION 
3 
a7Ga 3 The LSI BUS drivers for ell evai le eddrans stant }s- 21) 
rt» 3 ore, Onty ehegeed chen memning an © 81/5 systes with aore 
3 126K ° 
pt 34 3 SOCACSSASBSSIGKSSSSAOEKEGCHHOSEHLSOSSERHSEHESDS BASSBHOASSSSSKSLAADGHOHHESES 
3 
47659 s TEST STEPS: 
4770 3 
477 3 
477; ’ Write to TSSR to soft initialize 
4 3 Do e write cherecteristic coamend 
pie t Invert the extendeo features eaitch 
3 
4776 t 


REPEAT FOR SELECTED NON-EXISTENT MEMORY ADORESSES 





ee eee 
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SEQ 0116 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
4777 : BEGIN 
4778 i Get an invalid test address : 
4779 ’ Set the test packet characteristics data pointer to the 
4780 : test address. 
i 4781 3 Do a WRITE CHARACTERISTIC command b 
| 4782 3 If TSSR register NXM bit not set then print error message 
4763 3 END 
4784 ’ END 
4787 027124 BGNSUB 34/////////7// BEGIN SUBTEST ////////7/7/ 
027124 73.4: 
027124 104402 TRAP C$BSUB 
3789 
4790 027126 005737 003144 TST T23A 326-APR-83 REV B - CHK FOR 23A CPU 
4791 027132 001406 BEQ S$ 326-APR-83 REV B - BR, IF NOT 23A 
4792 027134 023727 002120 007777 CMP LSHIME ,@7777 326-APR-83 REV B - CHK FOR > 256KB 
4793 027142 103402 BLO S$ 326-APR-83 REV B - BR, IF < 256KB 
pian ptt od 000137 027536 Se JMP NOEXTF 326-APR-83 REV B - JUMP OVER 256KB 
4796 027150 005737 003136 TST NXMFLG :GOT ENOUGH eS 
4797 027154 001002 BNE 10$ 3;IF SET STAY 
are 027156 000137 027536 JMP NOEXTF ;LEAVE IF NOT SET 
poo sWrite to TSSR to soft initialize 
4802 027162 004737 015774 10$: JSR PC,SOFINIT :00 SOFT INIT OF CONTROLLER 
4803 027166 103405 6cs 11% ;BR IF SOFT INIT = OK 
4804 027170 NEXT. ERRNO 
4805 027170 010001 RO,R1 sSAVE CONTENTS OF TSSR 
4806 027172 ERROF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
027172 104455 TRAP CSEROF 
027174 000465 WORD 309 
027176 003652 WORD SFIERR 
eae? 012034 WORD SFIMSG 
4808 :Do a WRITE CHARACTERISTIC command so to invert switch 
4810 027202 11%: CKLOOP ;LOOP IF SELECTED 
027202 104406 TRAP CSCLP1 
4611 027204 012704 027610 MOV STL ZPACKET. R4 ;GET THE ADDRESS OF COMMAND PACKET 
4812 027210 004737 031170 JSR FA 12SWRT :RE STORE ro ti TO STARTING VALUES 
4813 027214 005037 003134 CLR KTENABLE URN OFF KT-11 
4814 027220 010465 000000 MOV R4, TSOBCRS) iSET THE PACKET ADORESS 
4815 027224 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4816 0272350 FORCERROR 15% 
47 027244 103405 ecs 17% ;BR IF SSR SET IN CHKTSSR 
4618 027246 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
4819 027250 NEXT .ERRNO 
820 027250 153: ERROF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
027250 104455 TRAP CSERDF 
027252 . WORD 
027254 030122 -WORD T12WRTSSR 
027256 01 . WORD 
4821 027260 178: CKLOOP ;LOOP IF SELECTED 


027260 104406 TRAP CscLP1 





TSVS - HARDWARE 
TEST 3: SUBTEST 


TESTS 
4: NXM 
004737 


005037 


013737 
013737 


013737 
013737 
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TO SELECTED INVALID ADDRESSES 
020444 JSR PC, INVERT ; INVERT THE SWITCH 
:Get en invelid test eddress 
002222 so: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
003142 027652 MOV NXMHI, TL2HIADD ;SAVE TEST ADDRESS HIGH 
003140 027654 MOV NXMLO, TL2LOADD sSAVE TEST ADDRESS LOW 
T124LO00P: 
sSet the test pecket cheracteristics date pointer to the 
:; test eddress. 
027610 308: MOV @TL2PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
031170 JSR PC, TL2SWRT sRESTORE PACKET TO STARTING VALUES 
027654 000002 MOV T12LOADD , PKLOW(R4 ) s;STORE CHAR. DATA PTR LOW ADDRESS 
027652 000004 MOV TL2HIADD , PKHI(R4) ;STORE CHAR. DATA PTR HIGH ADDRESS 
300 e WRITE CHARACTERISTIC command 
017274 JSR KTOFF ;TURN OFF KT-11 
000000 MOV R4,TSOBCRS) ;SET THE og ADDRESS TO EXECUTE 
016250 J »WAITF ;WAIT FOR SSR TO SET 
FORCERR 
Bcs 40s ;B8R IF SSR SET IN CHKTSSR 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
328: ERROF ERRNO, TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 11 
. WORD TI2QWRTSSR 
. WORD TSSR 
002222 INC FATFLG ;SET FATAL ERROR FLAG 
40$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
FORCERROR 45$%,NOTSSR 
ESCAPE SUB ;BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
-WORD L110046-. 
Ait TSSR register NXM bit not set then print error message 
000002 MOV TSSRCRS).R1 ;GET TSSR CONTENTS 
FORCERROR 52% 
004000 BIT ONXM,R1 sNXM SET? 
BNE 60% ;8R IF YES 
NEXT . ERRNO 
027654 002240 52%: MOV T12LOADD,,ERRLO sMEMORY TEST ADDRESS LOW 
027652 002236 MOV TievEARO » ERRHI sMEMORY TEST ADDRESS HIGH 
ERRHRD ERRNO, TL2NXM, ADOSSR sREPORT ADDRESS AND TSSR ERROR 
TRAP CSERHRD 
. WORD 12 
- WORD T12NXM 
-WORD ADOSSR 
60%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CscLPl 
FORCEXIT 90% 
003144 TST T23A 3IS IT A 11/23A? 





SEQ 0119 


re = eee | 


TSVS - HARDWARE 
TEST 3: SUBTSST 


4867 0275106 
4868 027512 
4869 516 


20 
4921 027664 


TESTS 
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4: NXM TO SELECTED INVALID ADDRESSES 


001012 
013700 
005200 


027652 
000077 
027652 
027306 


017274 


002222 


017202 
016456 


025776 


017274 
003150 


BNE 908 
MOV T12HIADD ,RO 


658: INC 
CMP RO,@77 
BHI 908 
758: MOV RO, TL2HIADD 
JMP T124L00P 
90%: 
NOEXTF : 
JSR PC .KTOFF 
ENCSUB 


TST FATFLG 


1008 
JSR PC .CKOROP 


100%: JSR PN Asa 


Bcc 105% 

JMP T12L00P 
1058: 

JSR PC ,.KTOFF 

CLR T3BFLG 

EXIT TsT 


o 
;LOCAL STORAGE FOR THIS TEST 


ge 
.*<,10>€177770 


TI2PACKET: 
.WORD 100004 

-WORD  T12DATA 

-WORD O 

-WORD 8 
TI2DATA: 

-WORD T12BFR 

. WORD 

-WORD 14 

-WORD 0,0 
T12BFR: .BLKW 8 
T1I2HIADO: . WORD 
T12LOA0D: - WORD 
T12PAR6: . WORD 
T12KT: . WORD 
T124TST: . WORD 


3¢ 


; TABLE OF ADDRESSES 
; 


T12BLK: .WORD 000001 


ooooo 


sYES WERE DONE 
sGET CURRENT HIGH ADDRESS 
T ADDRESS 


YES 
Se 10P NEW HIGH ORDER ADDRESS 
ANOTHER NON-EXISTENT ADORESS 


sTURN OFF KT11 
sNANNANNANNANS END SUBTEST N\NAANN 
L10046: 


NNANN 


TRAP CsESUB 


oy FATAL ERRORS ? 
IF NOT 


TRY TO OROP THE UNIT 
+o D WE DO ITERATIONS? 
; 


IF 
sLOOP UNTIL ITERATION COUNT DONE 


;TURN OFF MEMORY MANAGEMENT 
iCLEAR TEST FLAG 
;ALL DONE THIS TEST 
TRAP c 
-WORD L 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, 
;ADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sLOW ADDRESS OF MESSAGE BUFFER 


sHIGH ORDER OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sADDRESS IN PAR FORMAT 
iTEST ABOVE 286K SWITCH 
sADORESS TEST BIT 


sEXIT 
10042-. 


WITH ACK 


SEQ 0120 


—__——$_— 


TSVS - HARDWARE 


TEST 3: 


SUBTEST 


TESTS 





MACRO YOS.02 Monday 16-Sep-85 10:39 Page 81-10 see 6121 
4: NXM TO SELECTED INVALID ADDRESSES 
«WORD 000002 
-WORD 000003 
-WORD 000005 
«WORD 000006 
-WORD 000007 
«WORD 000011 
-WORD 000012 
-WORD 000013 
1 -WORD 000021 
«WORD 000022 
«WORD 000023 
«WORD 000041 
-WORD 000042 
“WORD 000043 | 
«WORD 000101 t 
1 «WORD 000102 | 
-WORD 000103 
-WORD 000201 
-WORD 000202 
«WORD 000203 
. WORD 000401 
«WORD 000402 
-WORD 000403 
-WORD 001001 
«WORD 001002 
-WORD 001003 
-WORD 002001 
. WORD 2002 
-WORD 002003 
-WORD 004001 
-WORD 004002 
-WORD 004003 
-WORD 010001 
«WORD 010002 
«WORD 0100035 
-WORD 020001 
- WORD 020002 
«WORD 020003 
-WORD 040001 
-WORD 040002 
-WORD 040003 
-WORD 100001 
«WORD 100002 
3 WORD 100003 
T12TBE: .WORD 177777 
3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
o - 
104 115 101 TST12I0: ASCIZ ‘DMA Memory Addressing’ 
103 157 156 T12GETSSR ASCIZ ‘Contents of TSSR Incorrect After GET STATUS’ 
103 157 156 T12WRTSSR SCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
115 145 163 T12MSGBUF : ASCIZ ‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS’ 
102 141 143 T12BKGND: ASCIZ ‘Background Pattern Disturbed By WRITE CHARACTERISTICS’ 
105 170 160 T12NINT: ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
127 162 151 T120PR: ASCIZ ‘Write Characteristic data in ram does not match expected’ a 
124 123 123 T12NXM: ASCIZ ‘TSSR NXM bit failed to set when non-existent memory address specifi 
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SEQ 0122 
_ TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
4979 EVEN 
i 4980 
| 
i 3¢ 
j 4983 sROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
4984 F DIAGNOSTIC FREE SPACE IS — THE END OF THE DIAGNOSTIC AND THE | 
4985 3 2 yp ca Sg OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K 
4986 3 F MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET H 
4987 3 TO THE RELOCATION BASE. 
4988 3 
4989 3; INPUTS: 
4990 i 
4991 3 RO HIGH ORDER ADDRESS BITS 
ra | 3 Ri LOW ORDER ADDRESS BITS 
3 
4998 3; OUPTUTS: 
4995 3 T1L2PAR6 = ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 
4996 3 T12HIADD = HIGH ORDER ADDRESS IN NON PAR6 FORMAT 
4997 3 T12L.QA0D = LOW ORDER ADDRESS IN NON PAR6 FORMAT 
4998 3 Cc BIT 2 IF GOOD ADDRESS RETURNED 
4999 3 C BIT = O IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 
5001 030666 T12CONVERT: 
5002 030666 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
5003 030672 005037 027654 CLR T12LOADD ;CLEA R LOW anatis 
5004 030676 005037 027652 CLR Hoty a ;sCLEAR HIGH ADDRESS 
5005 030702 005037 027656 CLR T12PAR6 ;CLEAR PAR6 BIASED ADDRESS 
5006 030706 042701 170000 BIC atecrt7>, R1 sFORCE TO LOWER 12 BITS OF ADDRESS 
5007 030712 010005 : MOV RO,RS sSAVE HIGH ORDER ADDRESS BITS 
5008 030714 004737 017274 JSR PC ,.KTOFF sSHUTOFF MEMORY MANAGEMENT 
5009 030720 013702 003124 MOV FREE ,R2 ;GET FIRST FREE ADDRESS - 
5010 030724 062702 000020, ADD #16. .R2 ;IN CASE TEST PATTERN=0 
5011 030730 060102 ADD R1,R2 aot IN TEST + ee 
5012 030732 042702 000003 BIC @3,R2 MAKE IT MODULO- 
5013 030736 013703 003130 25%: MOV FREEHI ,R3 ;GET LAST FREE ADDRESS 
5014 030742 162703 000020 SUB #16. RS sSAVE AT LEAST 8 WORDS CIN CASE MESSAGE BUFFER) 
5015 030746 010237 027654 . MOV R2,T12LO0ADD sSAVE POSSIBLE LOW ADDRESS 
5016 030752 010237 027656 MOV R2,T12PAR6 sSAVE IT IN PAR6 BIASED TOO 
5017 030756 020203 CMP R2,R3 3IS THIS ADDRESS ABOVE FREE SPACE? 
5018 030760 101007 BHI 35% 3;68R IF YES 
5019 030762 020237 003124 CMP R2, FREE sIS IT IN FREE SPACE? 
5020 030766 103007 BHIS 50$ 3;BR IF YES- ITS GOOD 
5021 030770 005737 003134 TST K TENABLE sTESTING ABOVE 28K? 
5022 030774 001004 BNE 50% ;B8R IF YES 
5023 030776 000424 BR 90% ;68R IF NOT IN FREE SPACE 
$024 031000 162702 000020 35%: SuB #16. ,R2 sFORCE FIT THE TEST PATTERN 
5025 031004 000754 BR 25% sTRY THIS TEST PATTERN ADDRESS 
5026 031006 50$: 
31 005737 003134 TST KTENABLE ph at a ABOVE 28K? 
5028 031012 001420 BEQ 100% 
5029 031014 005737 003132 TST KTFLG ONY MEMORY ABOVE 28K? 
5030 031020 0014135 BEQ 90% 3;BR IF NO 
5031 031022 004737 017256 JSR PC.KTON sTURN ON MEMORY MANAGEMENT 
5032 031026 010500 MOV RS,RO 3GET HIGH ORDER 
5033 031030 010037 027652 MOV RO, TL2HIADD i SAVE POSSIBLE HIGH ADORESS 
5034 031034 010201 MOV R2,R1 sGET COMPUTED LOW ORDER ADDRESS 


S035 031036 004737 017316 JSR PC, SETMAP sRETURN PAR6 BIASED ADDRESS IN RO 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


5036 031042 010037 027656 MOV RO, TL2PAR6 ;COPY PAR6 BIASED ADDRESS 
| 5037 031046 103403 BcS 105$ ;68R IF VALIO ADORESS 
| 5038 031050 2 90%: CLC ;CLR C BIT FOR FAILURE 
i 5039 031052 000401 BR 105$ 3 
5040 031054 000261 1008: SEC ;SET SUCCESS 
5041 031056 000207 105$: RTS PC sRETURN 
5042 
5043 
5044 +6 
5045 3 
5046 ;ROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
sed sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 
504 : 
5049 s INPUT: 
5050 3 
5051 3 R4 ADDRESS OF THE COMMAND PACKET 
sose 3 RS FIRST DEVICE UNIBUS ADDRESS 
3 
5054 ;OUTPUT: 
5055 3 
5056 Hy CARRY SET - RAM MATCHES PACKET 
Sess 3 CLR - RAM DOES NOT MATCH PACKET 
3 
644 sIMPLICIT OUTPUT: 
5061 : THE TABLE —— IS FILLED WITH THE 
5062 3 DATA HELD IN 
5063 3 RAMSIZ SET 10 2° FOR PRAMPKT ROUTINE 
5064 3 
5065 ;SIDE EFFECTS: 
5066 3 
5067 3 THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
5068 3 
5069 ‘- 
5070 031060 12CKRAM: : 
5071 031060 SAVREG sSAVE THE GENERAL REGISTERS 
5072 031064 012701 002242 MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
5073 031070 012702 000201 MOV @RMPKTBEG ,R2 sBYTE ADDRESS OF FIRST RAM DATA 
5074 031074 005003 CLR R3 ;CLEAR THE ERROR FLAG 
5075 031076 004737 016336 JSR PC.CHKTSSR ;WAIT FOR SSR 
5076 031102 112765 000000 MOVB #0, TSDBCRS) 3SET MAINT 
5077 031110 004737 016336 10%: JSR PC,CHKTSSR ;WAIT FOR SSR T 
5078 031114 010265 000000 MOV Rg. TSORLRS) sSELECT NEXT RAM ADDRESS 
5079 031120 004737 016336 JSR C.CHKTSSR 3W FOR T 
5080 031124 116511 000000 MOVB TSBACRS), CR1) sREAD THE RAM DATA 
5081 031130 122124 CMPB CR1)-+ .CR4)+ sCOMPARE TO EXPECTED 
031132 001401 BEQ 20% ;BRANCH IF ox 
5083 031134 005203 INC R3 :SET ERROR FLAG 
5084 031136 005202 208: INC Re sADDRESS OF NEXT RAM LOCATION 
5085 031140 020227 000203 CMP R2, @RMPKTBEG+2 :DONE 2 BYTES? 
5086 031144 002761 BLT 10$ R IF NO 
5087 031146 00570 TST R3 iWAS AN ERROR FOUND ? 
031150 001402 BEQ 30$ sBRANCH IF NOT 
$089 031152 000241 CLC ;CLEAR CARRY TO SHOW ERROR 
031154 000401 BR 50$ sAND EXIT 
509i 031156 000261 SEC :SHOW GOOD COMPARE 


30%: 
2 031160 012737 000002 002302 50%: MOV #2 ,RAMSIZ 





sSETUP RAMSIZ 


SEQ 0123 


| TSVS - HARDWARE 
| TEST 3: SUBTEST 


| 
| 
| 
| 


5093 031166 


5100 031170 


5135 031276 
36 


5149 031322 


TESTS 
4: NXM 
000207 


012701 


001402 
013701 
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TO SELECTED INVALID ADDRESSES 


027610 
100004 
027620 
000010 
027632 
000016 


003134 


017316 


000017 
100000 


027620 
027654 
003134 
027656 


RTS PC RETURN 
3¢ 


;ROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS , 
ge 


T1L2SWRT: 
SAVREG sSAVE THE REGISTERS 
MOV @T12PACKET ,R1 iSTAR T OF THE PACKET 
MOV #100004,(R1)+  ;WRITE CHARACTERISTICS WITH ACK 
MOV @T12DATA,C(R1)+ sADORESS OF CHAR DATA BLOCK 


CLR CR1)+ sEXTENDED ADDRESS 
MOV 08. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
wr a een ; ADDRESS OF MESSAGE BUFFER 
4 
MOV #14. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
CLR (R1)-+ 
CLR (R1) 
RTS PC sRETURN 


s¢ 
;ROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS 
R3 HIGH ORDER PACKET ADDRESS 


R4 LOW ORDER PACKET ADDRESS 
NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 


T12SETGET: 
SAVREG ;SAVE THE REGISTERS 
MOV R4,R ;GET LOW ORDER ADDRESS 
TST KTENABLE ;TESTING ABOVE 28K? 
BEQ 10$ ;BR IF NO 
MOV R3,RO ;GET HIGH ORDER ADDRESS 
JSR PC. SETHAP SRETURN ADDRESS BIASED TO PARG IN RO 
MOV RO-R ;GET ADDRESS 
10$: MOV oP: GETSTATUS. RO ;GET STATUS COMMAND CODE NO IE 
BIS oP “ACK, RO ;SET ACK 
MOV RO, (R1)+ ;STORE GET STATUS IN PACKET 
CLR (Ri)e ;CLEAR UNUSED WORD 
RTS PC ;RETURN 


3¢ 


; ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 
: 


T12CHAR: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV @T12DATA,RO GET TL2PACKET DATA POINTER 
MOV T12L0AD0;R1 ASSUME NOT ABOVE 28K 
31 KTENABLE iTESTING A ABOVE 28K? 
MOV T12PAR6.R1 SET TEST ADDRESS ABOVE 28K 


SEQ 0124 
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SEQ 0125 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
| $150 031326 012021 10%: MOV CRO)+,CR1)+ sSTORE DATA WORD 1 
\ $151 031330 012021 MOV (RO)+,CR1)+ sSTORE DATA WORD 2 
$152 031332 012021 MOV CRO)+,CR1)+ sSTORE DATA WORD 3 ! 
} $153 031334 012021 MOV CRO)+,CR1)+ sSTORE DATA WORD 4 
| 5154 031336 012021 CRO)+,CR1D+ ; DATA 05 
| size 031340 RTS PC sR 

$157 031342 ENDTST 

031342 L10042: 


031342 104401 TRAP CsETST 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


366 
5161 031374 


5190 031374 


031470 


005737 
001402 
005237 
012700 
004737 
C12737 


000000 
003400 
031674 


015774 


032720 
010662 


002216 


SEQ 0126 
-SBTTL TEST 4: RAM EXERCISER TEST 
. 
i THIS TEST USES hi READ AND WRITE RAM (BOTH SINGLE AND 256 
sLOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
:TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 
F 
32 
BGNTST 
T4:: 
TST TSTCNT sCHECK FOR RUN MODE 
BEQ 10% ;68R, IF NOT ONLY PROGRAM RUN 
INC SKIPT sSET SKIP SW 
10%: MOV @TST15ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
MOV #5 ,,LOOPCNT sPERFORM S ITERATIONS 
TiSLOOP: 
3 
3 
sTEST 4, SUBTEST 1 
F 
3 THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE 
3 RAM MEMORY SINGLE WORD (8 BITS) MODE 
3 
| Hd 
BGNSUB 347444444 44464604 ss 7 ee SAAAGASAGSAGS 
TRAP C#8SuB 
SETPRI #@PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO.RO 
TRAP CSSPRI 
TST SKIPT sSHOULD WE SKIP THIS SUBTEST 
BEQ 10$ ;8R, IF NOW SKIP REQUIRED 
JMP 50% ;SKIP SUBTEST 
10%: JSR PC, TLISREST :SET COMMAND PACKET 
JSR PC,T1iSRT2 ;SET UP OTHER COMMAND PACKET 
JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20% ;68R IF INIT WAS OK 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP > ag 
-WORD SFIERR 
808 «WORD SFIMSG 
MOV @TISPACKET .R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
JSR PC, WRTICHR sISSUE WRITE CHARACTERISTICS 
bcs 368R, IF COMMAND ISSUED OK 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORDB 402 
.WORD WRTMSG 


-WORD SFIMSG 
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S213 031472 
5214 031476 
31504 


03 
031672 
5261 031674 


012703 
112737 
112737 


010337 
0 
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TEST 
000400 
000001 
000002 
033432 
033420 
033434 
000000 
016336 


010000 


033434 
033432 
000001 


000000 
016336 


032762 


000377 


033431 
033430 


033430 


23%: 


25%: 


40%: 


43%: 


45%: 


50%: 


CKLOOP 


0256. ,.R3 
#1, 715851 
@2.115850 
R3,T15S2 
@TiSPK 


R1 
ERRNO, T1SSSR,PKTSSR 


SUB 


R3 
R3, #10000 
25% 


R3 
R3,7T15S3 
R3,7T15S2 
#1,T158S0 
R4,TSDBCRS) 
PC.CHKTSSR 
43% 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


TISBFR+20,R1 

R3,R2 

tt eR2 

ERRNO, T1SAM4 , EXPBREC 


R3 
R3,0255. 
40% 


ao. ADDRESS FOR RAM WRITE 
RANSFER 


sSIZE OF T 
sWRITE RAM “COMMAND” 


sADDRESS FOR RAM 
sWRITE SUBSYS MEM PACKET 
sDATA FOR WRITE CADDRESS) 


SEQ 0127 


3 IF NO ~” 

sERROR, SAVE TSSR 

sTSSR NOT CORRECT AFTER WRITE SUB MEM 
TRAP  CSERHRD 
.WORD 403 
“WORD T15SSR 
"WORD PKTSSR 

;D0N’T CONTINUE IF ERROR ON WRITE 
TRAP CSESCAPE 
.WORD 110050-. 

sSCOPE LOOP 
TRAP C8CLP1 

;NEXT ADDRESS 

;END OF RAM MEMORY CHECK 

;LOOP TILL ALL RAM WRITTEN 

;CLEAR OUT Ra HIGH BITS 

;SET BACK 777 

1GET DATA PATTERN BACK IN SHAPE 

; Ess | AM RE 


sREAD R 


AN COMPAND 
sSEND OUT PACKET ADDRESS TO oe 


ae FOR READY, NON-AMBIGUOU 
IF NO PROBLEM 

iSAVE TSSR 

sTSSR NOT CORRECT 


TRAP 
. WORD 
- WORD 
- WORD 
sSCOPE LOOP 
TRAP 
;GET RAM READ DATA 
sSET UP FOR COMPARE 
sCHECK WITH +b WRITTEN 
3BR IF A_IN = DATA OUT 
;WRITTEN BATA. NOT = TO A 
- WORD 
WORD 
- WORD 
sSCOPE LOOP 


TRAP 
sDROP DATA COUNTER (PATTERN) 
sAT BOTTOM YET 

TO CHECK 


3BR, 
3SC 


CSEROF 


404 
T1SSSR 
PKTSSR 


CSCLP1 


CSERHRD 
405 
T1ISAM4 
EXPBREC 


CSCLP1 
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TEST 4: RAM EXERCISER TEST 


SEQ 0128 


| 031674 104406 TRAP CSCLPi 
5262 031676 ENDSUB sNANANNANANNNN END SUBTEST N\ANNNNNANANNAN | 
| 031676 L10050: ! 
031676 104403 TRAP CsESUB | 
5263 | 
5265 031700 BGNSUB 34/4//44/1/1//4 BEGIN SUBTEST //////////77 | 
031700 T4.2: 
031700 104402 TRAP C$8SUB 
5266 
$267 3¢ 
5268 8 
5269 sTEST 4, SUBTEST 2 
5270 3 
5271 3 
5272 ’ THIS SUBTEST WRITES RAM WITH ALL ZEROS 
F th $ THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 
8 
5275 031702 C04737 034022 JSR PC, TISREST sRESTORE PACKET FOR WRITE CHARA 
5276 031706 004737 034074 JSR PC, TiSRT2 sRESTORE PACKET FOR WRT SUB SYS MEM 
S277 031712 004737 015774 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
5278 031716 103405 6cs 20% 36R IF INIT WAS OK 
52862 031720 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
$283 031722 ERRDF ERRNO,SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
031722 104455 TRAP CSEROF 
031724 000626 -WORD 406 
031726 003652 -WORD SFIERR 
031730 012034 -WORD SFIMSG 
5284 031732 208: 
5285 031732 012704 032720 MOV @TISPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
66 031736 004737 010662 JSR PC,.WRTICHR S ISSUE WRITE CHARACTERISTICS 
5287 031742 103405 6cs 25% 38R, IF COMMAND Z59Ue0 OK 
5291 031744 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
S292 031746 ERRHRD ERRNO,WRTMSG, SFIMSG i WRITE CHARACTERISTISC FAILED 
031746 104456 TRAP CSERHROD 
031750 000627 -WORD 407 
031752 005056 "WORD WRTMSG 
031754 012034 -WORD SFIMSG 
5293 031756 25%: 
5294 031756 112737 000001 033431 MOovB #1,7156S1 sSET SIZE OF TRANSFER 1 BYTE 
5295 031764 012704 033420 MOV @T1SPK2,R4 iSET NEW PACKET ADDRESS . 
5296 031770 012703 000400 MOV 0256. .R3 sSTARTING ADDRESS IN RAM 
5297 031774 112737 000002 033430 MOVE @2,7158S0 sWRITE RAM COMMAND 
5298 032002 105037 033434 CLRB T1583 :SET DATA TO 000 
032006 010337 033432 30%: MOV R3,715S2 sADDRESS TC PACKET DATA AREA 
032012 010465 000000 MOV R4,TSOBCRS) } SEND OUT PACKET ADDRESS 
5301 032016 004737 016336 JSR PC,.CHKTSSR sWAIT FOR S 
032022 103405 6cs 33% 3;6R, TF NO PROBLEM 
5303 032024 010001 MOV RO,R1 sSAVE TSSR 
5307 032026 ERRHRD ERRNO, T1I5SSSR,PKTSSR sTSSR NOT CORRECT 
032026 104456 TRAP CSERHRO 
032030 000630 -WORD 408 
032032 033436 -WORD T15SSK 
032034 .WORD PKTSSR 
5308 032036 33%: CKLOOP :SCOPE LOOP 
032036 Rap 
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! TEST 4: RAM EXERCISER TEST 
$310 
ii 


032040 005203 INC R3 
5312 032042 020327 010000 CMP R3, #10000 
5313 032046 001357 BNE 308 
$314 032050 905 35%: DEC R3 
5315 032052 005002 40s: CLR R2 
$316 032054 112737 000001 033430 MOVB 1,7158S0 
5317 032062 010337 033432 MOV R3.715S2 
5318 032066 010465 000000 MOV R4,TSDBC(RS) 
5319 032072 004737 016336 JSR PC. CHKTSSR 
5320 032076 103405 8cs 41 
5321 032100 010001 MOV RO,R1 
102 ERRHRD ERRNO, TISSSR,PKTSSR 
032102 104456 
032104 31 
032106 033436 
032110 
$326 032112 418: CKLOOP 
032112 104406 
$327 032114 013701 032762 Mov TISBFR+20,R1 
5328 032120 120102 R1,R2 
5329 032122 001404 BEQ 42% 
5333 032124 ERRNO, T1SAM3, EXPBREC 
032124 104456 
032126 000632 
032130 033613 
032132 015502 
5334 032134 42%:  CKLOOP 
032134 1 
$335 032136 0 000377 MOV #000377 ,R2 
$336 032142 112737 000002 033430 MOVe 2,7158S0 
5337 032150 112737 000377 033434 MOVB § #000377,T15S3 
38 032156 010465 000000 MOV R4, TSOBCRS? 
339 032162 004737 016336 JSR PC.CHKTSSR 
5340 032166 103405 BCS 433 
5341 032170 010001 MOV RO,R1 
5345 032172 ERRHRD ERRNO, TISSSR.PKTSSR 
032172 104456 
032174 000633 
032176 033436 
032200 0 
$346 032202 43%:  CKLOOP 
032202 104406 
$347 032204 112737 000001 033430 MOVE #1,7158S0 
5348 032212 010465 000000 MOV R4,TSDBC(RS) 
5349 032216 004737 016336 JSR PC. CHKTSSR 
032222 103405 ecs Bag 
5351 032224 010001 MOV RO,R1 
032226 ERROF ERRNO, TISSSR,.PKTSSR 
032226 1046455 
032230 000634 
032232 033436 
032234 012046 
5356 032236 013701 032762 44%: MOV TISBFR+20,R1 
5357 032242 120102 CHPBséaR}1R2 
032. 001404 BEQ 453 
0 ERRHRD ERRNO, T1SAM2,EXPBREC 





SEND OUT PACKET 
iWAIT FOR SSR TO SET 
sBR, ALL IS WELL 
iSAVE TSSR 

sTSSR NOT CORRECT 


sSCOPE LOOP 
on UP READ DATA 


2° hi nF OAT BE 00000000 BINARY 
DATA _IS GOOD 
CHARACTERISTICS DATA NOT eee 


sSCOPE LOOPER 
sSET ALL we WORD 


“WORD 
[WORD 
TRAP 


TTERN 
iPASS PACKET ADDRESS TO CONTR. 


sWAIT FOR SSR 


TS 
sTSSR NOT CORRECT 


sSCOPE LOOP 

sSET UP FOR RAM READ 
SUE RAM READ 

sWAIT FOR SSR TO SET 

s6R, IF ox (NO ERROR) 


sSAVE T 
sTSSR NOT CORRECT 


sPICK UP REC'D DAT 


ee a 


SEQ 0129 


C 
sADDRESS TO BE READ TO PACKET DATA 
ADORESS 
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SEQ 0130 
TEST 4: RAM EXERCISER TEST | 
032246 104456 TRAP  CSERHROD 
032250 35 .WORD 413 
032252 033512 “WORD TISAN2 
032254 015502 “WORD EXPBREC 
5363 032256 45$:  CKLOOP :SCOPE LOOP 
032256 106406 TRAP CSCLPA 
$364 032260 005303 DEC Osa ;DROP RAM ADORESS POINTER 
5365 032262 020327 000377 CHP séRS 25S. tAT START YET 
032266 001271 ONE 408 i8R, IF MORE RAM TO CHECK 
$368 032270 ENOSUB sN\ANANANANANNN END SUBTEST \ANNNNNNANANAN 
032270 10051: 
032270 104403 TRAP ss CSESUB 
$370 032272 BGNSUB 34/441/744/447/ BEGIN SUBTEST ////4/4/4/44447 
032272 14.3: 
032272 104402 TRAP C88 SUB 
S371 3° 
ssrg 3 
5373 TEST 4, SUBTEST 3 
: 
75 
53 ; THIS SUBTEST WRITES RAM WITH ALL ONES 
$377 ; THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 
S378 74 005737 003400 , TST SKIPT CHECK RUN MODE 
032500 001 BEQ ss 108 :0R, IF NO SKIP 
_ $381 032302 000137 032676 weep :SKIP SUBTEST 
$382 032308 008757 0 10: JSR = PC, TASREST RESTORE PACKET FOR CHARA 
5383 032312 004737 0 JSR —s-« PC: T15R RESTORE PACKET FOR WRT SUB SYS MEN 
5384 032316 004737 015774 JSR sé, {D0 INITIALIZE 
S353 g35354 sanoct me ft«Ro saa TOONTENTS OF TSSe REGISTER 
3390 Ossss ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
O32350 Soosse me fn 
is ps 
903652 “WORD  SFIERR 
6 a “WORD SF INSG 
$392 032336 012706 032720 * MOVs OTASPACKET RA :SUSROUTINE NEEDS PACKET ADORESS 
032342 fosaas 010662 sh BC URTCHR 1 ISSUE MATTE CH CHARACTERISTICS 
: . 
10001 MOVs RO, RA SAVE CONTENTS OF TSSR 
5399 ome, ERRHRD ERRNO, URTHSG, SFINSG iMRITE CHARACTERISTISC FAILED ; 
ooses6 3 NORD is 
032360 012034 ae [WORD  SFIMSG 
$55343 112737 000001 033431 * move = so, 725851 SET SIZE 10 1 BYTE 
70 6 033420 MOV Rs iSET MEW ss 
4 012703 000400 + ie + vt STARTING AQORESS IN RAM 
112737 033430 move 42.1 iar bata 
i $008 ST 033434 MOVe 0377.715S3 DATA TO 377 
o3zez0 i 00008 oe, tC“ Sd fs oy oa a A 
Oas7s? Ohesee JSR —s- PC|CHKTSSR iMAIT FOR 
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$409 
5410 
5414 


103405 
010001 


104456 
000640 


033436 
012046 


104406 
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TEST 


010000 


000377 
00000 

033432 
000000 
016336 


4 


032762 


000377 
000002 
000377 
000000 
016336 


000000 
016336 


033430 


033430 
033434 


033430 


338: 


408: 


418: 


42%: 


43%: 


BcSs 
MOV 
ERRHRD 


33% 
RO,R1 
ERRNO, T1SSSR,PKTSSR 


PC, CHKTSSR 
ais 


R1 
ERRNO, TLSSSR.PKTSSR 
TISBFR+20,R1 
R1,R2 
42% 
ERRNO, T1SAM3 ,EXPBREC 


#000377 ,R2 


R 
ERRNO, T15SSR,PKTSSR 


#1,7158S0 
R4, TSOBCRS) 
PC ,.CHKTSSR 
44s 


RO,R1 
ERRNO, TISSSR ,PKTSSR 


:8R, IF NO PROBLEM 
sSAVE TSSR 
sTSSR NOT CORRECT 


TRAP 
. WORD 
“WORD 
“WORD 

:SCOPE LOOP 
TRAP 

;NEXT ADDRESS 

;END OF RAM MEMORY CHECK 

;8R, MORE RAM TO GO 

sSET BACK TO 7777 

;SET TO ALL ONES 

;READ RAM C 

sADDRESS TO 


sBR, a4 ~ IS WELL 

;SAVE T 

:TSSR Nore CORRECT 
TRAP 
. WORD 
. WORD 
. WORD 

;SCOPE LOOP 


TRAP 
sPICK UP READ DAT 
+ * hh aria 2 11111111 BINARY 
3 


IF DAT 
‘CHARACTERISTICS DATA NOT (RS 


CSERHRD 
416 
TiSSSR 
PKTSSR 


CSCLP1 


OMMANO 
BE READ TO PACKET DATA 
T ADDRESS 


ym 
‘WORD T1SAM3 
-WORD EXPBREC 
;SET ALL ONES WORD 
sWRITE RAM COMMAND 
;ALL ONES PATTERN 
;PASS PACKET ADORESS TO CONTR. 
;WAIT FOR SSR 
;BR, IF OK (NO ERROR) 
;SAVE TSSR 
:TSSR NOT CORRECT 
TRAP LSERHRD 
. WORD 419 
-WORD T1SSSR 
.WORD PKTSSR 
;SCOPE LOOP 
TRAP CsCLP1 
;SET UP FOR RAM READ 
; ISSUE RAM 


TSSR 
;TSSR NOT CORRECT 





SEQ 0131 
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100456 
000644 
033436 
012046 
013701 

02 


‘ 
~ 
~ 
tte 
~ 
2 


00206 
033430 


S512 033430 
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TEST 4: RAM EXERCISER TEST 


032762 


000377 


016456 
031374 


LL oe Apia 


45% 
ERRHRD ERRNO, TLSAM2,EXPBREC 


45%: CKLOOP 


OE R3 
CMP R3,0255. 
40$ 


JSR PC. TSTLOOP 
63% 


BCC 
JMP T1SLO00P 
635: EXIT TST 


° 
;LOCAL STORAGE FOR THIS TEST 
tid 


.*«<,10>€177770 


TISPACKET: 
.WORD 100204 
“wORD T1SDATA 
"WORD 0 
‘WORD 8. 
TISDATA: 
.WORD T1SBFR 
WORD 0 
“WORD 
“WORD 0,0 
TISBFR: |BLKW 150. 


; 
iWRITE SUBSYSTEM MEMORY COMMAND PACKET 
F .#¢, 6106177770 


TiSPK2: 
. WORD 100206 
.WORD T158F2 
-WORD O 
-WORD 6. 
. EVEN 

T158F 2: 


TRAP CSERHRD 
. WORD 
-WORD T1SSSR 
«WORD PKTSSR 
PICK UP REC'D DAT 
i CHECK + Sag DATA War) TEN 
;BR IF OK, DATA IN = DATA QUT 
;WRITTEN BATA NOT = TO READ 
TRAP CSERHRO 
TWoRo 421 
-WORD TISAM2 
-WORD EXPBREC 
SCOPE LOOP 
CsCLPi 


TRAP 
s;DROP RAM ADDRESS POINTER 
3AT START YET 
;BR, IF MORE RAM TO CHECK 


ENNANNANNANANN END SUBTEST N\NAANANNANNAN 
110052: 


TRAP CsEsus 
3:00 WE +» TO ITERATE TEST ? 
s;BRANCH IF NOT 
;EXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CsExIT 
-WORD 110047-. 


sCOMMAND PACKET FOR TEST 


SEQ 0152 


sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
s:LENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 





ee a Ce 
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TEST 4: RAM EXERCISER TEST 
S513 033430 000 TiS8SO: BYTE 0 :BSELO AREA 
5514 033431 000 T158S1: .BYTE 0 ;BSEL1 AREA 
5515 033432 000000 T15S2: ‘WORD 0 ;SEL 2 AREA 
3516 033434 000000 T15S3: [WORD 0 DATA AREA 
5518 
5519 
5520 
SS21 s* “ 
5522 ;LOCAL TEXT MESSAGES FOR TEST 
Bt ‘ 
5525 033436 127 122 111 T1SSSR: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
033512 127 122 111 TISAM2: |ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Feiled On All Ones Word Reed Beck’ 
5527 033613 127 122 111 TI5AM3: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On All Zeros Word Reed Beck’ 
5528 033715 127 122 111 T1SAM4: .|ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Feiled On Address Test’ 
5 122 101 115 TST1SIO: .ASCIZ ‘RAM Exerciser’ 
5530 EVEN 
3332 - 
3 
5533 ;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
5534 ;WRITE SUBSYSTEM MEMORY COMMAND 
5535 3 
5536 :- 
5537 
5538 034022 TISREST: 
5539 034022 SAVREG ;SAVE THE REGISTERS 
0 012701 032720 V @TISPACKET,R2 ;START OF THE PACKET 
5541 034032 012721 100204 MOV #100204, (Ri) ;WRITE SUBSYSTEM MEM. WITH ACK, IE 
5542 034036 012721 032730 MOV @TISDATA, (Ri)> ;ADDRESS OF CHARAISTICS DATA BLOCK 
5543 034042 005021 CLR CRLD» ;EXTENDED ADDRESS 
5544 034044 012721 10 MOV :SIZE OF DATA BLOCK IN BYTES 
5545 034050 012721 032742 MOV srisora. CRL)» ;ADDRESS OF MESSAGE BUFFER 
034054 005021 CLR (R1)+ 
5547 034056 012721 000400 MOV 9256. .CR1)> ;LENGTH OF MESSAGE BUFFER 
034062 005021 CLR (Ri) 
5549 034064 005011 CLR R1) 
5550 034066 005037 032742 CLR T15BFR :CLEAR 1ST LOC IN MESSAGE BUFFER 
3351 034072 000207 RTS PC ;RETURN 
5553 
5554 034074 TISRT2: 
5555 034074 SAVREG ;SAVE THE REGISTERS 
5556 034100 012701 033420 Vv @T1SPK2,R1 :START OF THE PACKET 
5557 034104 012721 MOV @100206.(R1)+ ;WRITE SUBSYSTEM MEM. WITH ACK, IE 
5558 034110 012721 033430 @T158F2.(R1)+ ;ADDRESS OF DATA BLOCK 
5559 034114 1 CLR R1)+ EXTENDED ADORESS 
034116 012721 0v0006 MOV 06. ,(R1)> ;SIZE OF DATA BLOCK IN BYTES 
5561 034122 CLR (Rid- 
034124 CLR (R1)+ 
5563 034126 005011 CLR (Ri) 
034130 RTS PC ;RETURN 
5565 034132 ENDTST 
034132 10047: 
034132 104401 TRAP = CSETST 


— 
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TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,B 


34 
5590 034134 012700 036212 
S591 034140 004737 016510 
5592 pe otic, 012737 000012 002216 


B55 


5607 


ereeesre 


ares 


er 
o 


-SBTTL TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,B 


oe 
; TEST DESCRIPTION: 


T16LOOP : 


This test verifies the Invert Extended Feetures function 
cen ty oe invert the Extended features switch and 


3 
3 
: thet internel timers A and B operate correctly. 
3 
s TEST STEPS: 
3 
3; REPEAT FOR LOOPCNT 
3 BEGIN 
3 Do Subtest 1 - Verify Extended Features Switch 
8 Do Subtest 2 - Verify Timers A,B 
3 END 
g°e 
BGNTST - 
MOV @TST16ID.RO ;ASCII MESSAGE TO IDENTIFY TEST 
JSR PC. TSTSETUP :00 INITIAL TEST SETUP 
MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 


SBTTL TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


aoe 
s TEST S: SUBTEST 1: 


BEGIN 


SUBTEST DESCRIPTION: 
This subtest verifies that the Invert Sense of Extended features 
ommand ) 


Switch function (Write Subsystem Memory,Write Misc c 

operates properly. 

First the state of the Extended Features switch is read in the 
message packet supplied by the write cheracteristics commend. 
Then, the sense of the switch is logicelly inverted. 

A Write cheracteristics command is executed and it is verified 
that the Extended status register (XST4) is returned when 

in Extended mode, end not returned if not in extended mode. 
The subtest also verifies that specifying a Message Buffer 
address with any of bits 21-19 ,set will cause the command to 
be rejected. 


TEST STEPS: 


Write to TSSR ister to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
co Extended Features Hardware Switch CLEAR 


(* Verify Extended Features switch can be Inverted to SET «) 
Do Write Subsyst 


em 
DO eae WRITE C ACTERISTICS with an extended characteristic word 
Compare the controller ram to the extended characteristic word 


Write Miscelleneous to SET Extended Features. 


SEQ 0134 
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5627 
8 


104402 


012701 
032761 
pot og | 


00013 
012703 
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TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


015774 


002222 


037562 
000200 


034636 
002764 


000012 


$ 
10$: 


128: 


158: 


If Date word in controller ram NOT= to word sent Then Print Error 
eves Message Buffer Data Length NOT= 12. Then Print Error 
(a 


Verify a Features switch can be Inverted to CLEAR #) 
Do Write Subsystem Write Miscellaneous to CLEAR Extended Features. 
Do ea WRITE CH RACTERISTICS without an extended cheracteristic word 
or Buffer Date Length NOT= 10. Then Print Error 


(* Verify Function no + when Message Buffer 21-19 are non-zero *) 
Write to TSSR register to soft initialize the controller 
REPEAT FOR MESSA BUFFER ADDRESS bits <21:19> FROM O TO 7 
DO a WRITE CHARACTERISTICS with a speenes address bit<21:19> non-zero 
If TSSR termination code NOT= Function Reject Then Print Error 


END -REPEAT 

BGNSUB TAAAAAAAAAAAA — SAGAS AGS 
TRAP Cs6SUB 

Write to TSSR register to soft initialize the controller 

JSR PC,SOFINIT ;WRITE TO TSSR TO by ad INITIALIZE 

BCS 10$ ;6R IF SOFT INIT OKAY 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERROF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL OURING INIT 
TRAP CsERDF 
. WORD 
-WORD SFIERR 
-WORD SFIMSG 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

JSR PC, TI6REST eRe STONE PACKET DEFAULTS 

CLR FATFLG ;CLEAR FATAL ERROR FLAG 

MOV @T1I6PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

PC,WRTCHR ;00 WRITE PRARACTERISTICS COMMAND 

FORCERROR 12$ jasOronce ERROR IF FORCER=1 

BCS 15$ :B8R IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO,T16SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
‘ 501 
-WORD T16SSR 
-WORD PKTSSR 

INC FATFLG :SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


If Extended a eee poreuare Switch Clear then: 
Ext ures switch can be Inverted to SET «) 
Test “BATTERNS IN TSTBLK TABLE 
sMESSAGE BUFFER 


oT1 ADORESS 
i EXTENDED FEATURES SWITCH CLEAR? 
;8R IF YES 


6BFR 
axe. TES XST2CRL) 


iSTART OF TEST DATA 


200% 
@TSTBLK+10.,.R3 


SE@ 0135 
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“Test S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


i 

| 4 

| 5675 034276 004737 037520 
5676 034302 012704 037610 
Siesse 


34306 
5678 034312 004737 016336 


34344 2046 
5684 034346 005237 002222 


5688 034354 012737 125252 

5689 034362 012704 037540 

5690 034366 012764 000020 

5691 034374 013737 002312 

5692 034402 004737 010662 
034406 


12046 
5698 034436 005237 002222 


000000 

5702 034450 012702 037562 

5703 034454 062702 000020 
04 034460 


5712 034506 012704 037550 
5715 034512 004737 011224 


002312 


000006 
037560 


32%: 


40%: 


423: 


728: 


Do Write Subsystem Write Miscellaneous to SET Extended Features. 


JSR PC. TI6SEXT sSETUP PACKET FOR WRITE MISC INVERT 
MOV @Ti6PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO 2 
FORCERROR 32% oe sh RROR IF FORCER=1 
BCS 40% BR IF CARRY SET (6000 RETURN) 
MOV RO,R1 ; SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 502 
-WORD 1T162SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
OO a WRITE CHARACTERISTICS with an extended characteristic word 
MOV #125252 ,DATA } SETUP TEST DATA FOR EXTENDED WORD 
MOV @T1EPACKET .R4 iGET THE ADDRESS OF COMMAND PACKET 
MOV #16. ,PKBCNTC(R4) sSTORE MESSAGE PACKET SIZE 
MOV DATA, TI6DATA+10 sSTORE TEST DATA IN EXTENDED 
JSR PC, WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42$ sesorons & RROR IF FORCER=1 
BCS 50$ ;BR IF CARRY SET (6009 RETURN) 
Vv RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
" 503 
-WORD 1T16SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
If the TSBA Address Register Nore GET Teen Then Print Error 
MOV TSBACRS),R1 A REGISTER CONTENTS 
MOV OT16BFR,R2 + OTAR T OF THE DATA BUFFER 
ADO #16.,Ro sEXPECTED CONTENTS OF TSBA 
FORCERROR 72$,NOTSSR s@@8D0FORCE ERROR IF FORCER=1 
CMP R1,R2 :COMPARE EXPECTED TO RECEIVED 
BEQ 80$ sERROR IF NOT EQUAL 


NEXT. ERRNO 
ERRHRD ERRNO, T16TSBA,EXPREC sPRINT THE ERROR & EXPD/RECV 
one gceuee 


T16TSBA 
-WORD EXPREC 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
¢ are the controller ram to the extended charecter tate word 
? Dat ta word in controller ram A iy to word sent Then Print Error 
@T16DATA,R4 CRS TORSO TTS DATA apones® 
rR PC,CKRA M2 + OOES RAM DATA EQUAL DATA SENT? 
FORCERROR 92% s@8@0FORCE ERROR IF FORCER=1 


SEQ 0136 





ee Ce ee 
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lie : - SEQ 0137 


| 
| 5715 034532 103404 Bcs 100% 3BR IF YES 

5716 034534 NEXT .ERRNO 

5717 034534 92%: ERRHRD ERRNO,PKTRAM,RAMERR sREPORT THE RAM ERROR(S) } 
034534 104456 TRAP CSERHRD 
034536 000771 -WORD 505 
034540 004745 «WORD PKTRAM 
034542 015510 -WORD RAMERR 

57186 544 100$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
034544 104406 TRAP CSCLP1 

S71 $ If Mecoege Buffer Data Length NOT= 12. Then Print Error 

$720 034546 012702 037562 Vv @T16BFR,R2 sGET MESSAGE BUFFER ADDRESS 

$721 034552 016201 000002 MOV 2CR2),R1 sGET RECV DATA FIELD LENGTH 

S722 034556 012702 000014 MOV #12. ,R2 ;GET EXPD DATA FIELD LENGTH 

S723 034 FORCERROR 112$,NOTSSR s@@D0FORCE ERROR IF NFORCER=1 

5724 034572 020102 MP 1,R2 3: COMPARE "EXPECTED TO RECEIVED 

sise rt tig 001404 BEQ 120% sERROR IF NOT EQUAL 

S727 034576 112%: ERRHRD ERRNO, TI6LEN,EXPREC sPRINT THE ERROR & EXPD/RECV 
034576 1044 TRAP CSERHRD 
034600 00077 -WORD 506 
034602 036532 -WORD T16LEN 
034604 015474 -WORD EXPREC 

S728 034606 120%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

s7 034606 104406 TRAP CSsCLP1 

5730 034610 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

5731 034614 103405 BCS 125% 38R IF SOFT INIT OKAY 

5732 034616 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5733 034620 ERROF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
034620 104455 TRAP CSEROF 
034622 000772 -WORD 506 
034624 003652 -WORD SFIERR 
034626 012034 -WORD SFIMSG 

5734 034630 125%: CKLOOP ;LOOP IF SELECTED 
034630 104406 TRAP CSCLP1 

pd 034632 000137 035016 JMP 300% 3 

5737 3 (* Verify Extended Features switch can be Inverted to CLEAR #) 

5738 034636 200%: 

573 3 Do Write Subsystem Write Miscellaneous to CLEAR Extended Fea 

5740 034636 004737 037520 JSR PC, T16SEXT ; SETUP BACKET FOR WRITE MIse INVERT 

S741 034642 012704 037610 MOV @T16PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 

5742 034646 010465 000000 MOV R4, TSOBCRS) ;SET THE o>! a eee TO EXECUTE 

5743 034652 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

57 346 FORCERROR 232% ;@@0FORCE ERROR IF FORCER=1 

5745 034672 103407 Bcs 240 :BR IF CARRY SET (000 RETURN) 

5746 034674 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

5747 034676 NEXT .ERRNO 

5748 034676 232%: ERRDF ERRNO,T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
034676 104455 TRAP CSEROF 
0347 00077 ¥ 507 
034702 036317 -WORD 1162SSR 
034704 012046 -WORD PKTSSR 

5749 034706 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

5750 034712 2408: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
034712 104406 TRAP CSCLP1 





| TSVS - HARDWARE TESTS 


5752 


034766 104406 


57 35000 020102 
S767 035002 001 
5768 035004 
5769 035004 
035004 1044 
035006 000775 


$777 035016 012757 


° 046 
5794 035114 005237 
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037540 
000016 
010662 


002222 


037564 
000012 


000001 


037540 
000016 
002312 


037552 
000000 
016250 


002222 


000006 


002312 


2423: 


2628: 


3428: 


MOV oT1 
MOV 014. PRBENTCR4) 
JSR PC ,WRTCHR 
FORCERROR 242% 
BCS 250 
MOV RO,R1 

XT. ERRNO 


NEXT .E 
ERRDF ERRNO, T1I6SSR,PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 0138 


00 ea WRITE itl | alam without an extended cheracteristic word 
6PA »R4 3GET AND PACKET 


THE ye OF COMM 
iSTORE MESSAGE PACKET SIZE 
300 WRITE ata chant COMMAND 

oor E ERROR IF FORCER=1 
s6R IF CAR Y SET (GOOD RETURN) 
3 SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 508 
-WORD T16SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG <. 
CsCLP1 


If Mess Buffer Data Length NOT= 10. Then Print Renae e 


MOV TLOBFR+2,R1 
R2 


MOV #10., 
CMP Ri, 
BEQ 270% 
NEXT .ERRNO 


ER 
ERRHRD ERRNO, TIGLEN,EXPREC 


CKLOOP 


sGET RECV DATA FIELD LENGTH 


sERROR IF NOT 

sPRINT THE ERROR & EXPD/RECV 
TRAP CSERHROD 
-WORD 509 
-WORD T16LEN 

EXPREC 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


(* Verify Function Reject when Message Buffer 21-19 are non-zero *) 
Write to TSSR register to soft initialize the controller 


~ eae et MESSAGE BUFFER ADDRESS bits <21:19> FROM O TO 7 
00 a WRITE CHARACTERISTICS with H message address bit<21:19> non-zero 


MOV @T1I6PACKET ,R4 
MOV #14. ,PKBCNT(R4) 
MOV fone 

RO 


MOV RO, TIGDATA+2 
MOV R4, TSOBCRS) 
AITF 


MO 
NEXT .ERRNO 
ERRDF ERRNO, T16SSR,PKTSSR 


INC FATFLG 


START AT BITS<21:19>=001 


sGET THE ADDRESS OF COMMAND PACKET 
sSTORE MESSAGE PACKET SIZE 
sGET TEST DATA 


sSHIFT INTO BITS 21:19 


sSTORE BUFFER ADDRESS BITS 21:19 
sSET THE PACKET ADDRESS TO EXECU:E 
sWAIT FOR SSR 

or ERROR IF FORCER=1 
3BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 3 
TRAP ‘ 


-WORD 510 
-WORD T16SSR 
PKTSSR 


;SET FATAL ERROR FLAG 


i 
| 
| 
sGET EXPD DATA FIELD LENGTH 
3 COMPARE Sy cam RECEIVED 
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5795 035120 
035120 


04406 
5796 
$797 
$798 035122 016 000002 
$799 035126 010102 
035130 0427 000016 
$801 035134 052702 000006 
5802 035140 
5803 035150 020102 
5804 035152 001404 
5805 035154 
5806 035154 
035154 1044 
035156 000777 
035160 036644 
035162 012046 
5807 035164 
035164 104406 
5808 035166 
5809 035176 005237 002312 
5810 035202 023727 002312 
5811 035210 101002 
seis 035212 137 035024 
5814 035216 
5815 035216 
035216 
035216 104403 
5816 
$817 035220 005737 002222 
5818 035224 001402 
$819 035226 004737 017202 
$820 035232 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
5831 
S832 
5833 
5834 
5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 
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3508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 
’ If TSSR termination code NOT= Function Reject Then Print Error 
MOV TSSRCRS),.R1 sGET RECV TSSR 
MOV R1,R2 sCOPY RECV TSSR 
BIC @TERCLS,R2 sCLEAR TC<2:0> EXPD 
BIS SREJ,R2 3SET wai TC<2:0>= FUNCTION REJECT 
FORCERROR 352$,NOTSSR ORCE ERROR IF FORCEP=1 
CMP R1,R2 sEXPO EQUAL RECV? 
BEQ 3608 ;8R IF YES 
NEXT . ERRNO 
3528: ERRHRD ERRNO, TI6REJ,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERHRD 
-WORD 511 
-WORD T16REJ 
. WORD TSSR 
3608: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
FORCEXIT 370$ 
INC DATA ;GET NEXT TST PATTERN 
CMP DATA, @7 sDONE ALL DATA? 
BHI 370% ;6R IF YES 
JMP 325% 300 ANOTHER TEST PATTERN 
hres END-REPEAT 
ENDSUB WT AAAAAAAAAAAA ~ SUBTEST /////////7/ 
TRAP Csesus 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 460% sBRANCH IF NOT 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 
460$: 
.SBTTL TEST 5: SUBTEST 2: VERIFY TIMERS A,B 
3¢¢ 
; TEST S: SUBTEST 2: 
3 
; SUBTEST DESCRIPTION: 
3 
3 This subtest verifies that timers A,B can be reset 
3 end thet Timer A is ee the frequency of Timer B. 
A Timer A has a period of 25 microseconds and Timer B 
: hes a period of SO microseconds. The timers are 
3 checked at 1, 28, 53, and 78 micoseconds. 
3 
3s TEST STEPS: 
3 
3 
; Write to T cogloter to soft initialize the controller 
3 Do WRITE CHARACT RISTICS to setup ea Message Buffer 


SEQ 0139 


ee s— 
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i) 
5889 035370 





SET 
ERROR IF FORCER=1 


JSR 
FORCERROR 328 3 BBDF ORCE 


SEQ 0140 
TEST 5S: SUBTEST 2: VERIFY TIMERS A,B 

5844 3 (@ ay sas Timers A.B after RESET TIMER with 0 microsecond delay *) 

5845 3 Do e Write Control RESET te with 1 microsecond delay 

5846 3 Do ea Write Subsystem READ STATUS 

5847 : If Timer A NOT= O Then Print eo 

5848 3 If Timer 8B NOT= O Then Print Erro 

5849 3 (* pag Ab | Timers “ efter RESET TIMER with 28 microsecond delay *) 

5850 3 Do ea Write Control RESET TIMER with 28 microsecond delay 

5851 ; If Timer A NOT= Then Print Error 

5852 3 If Timer 8 NOT= 1 Then Print Error 

5853 ; Do e Write Control RESET TIMER with 53 microsecond delay 

S854 : If Timer A * 0 Then Print Error 

S855 ; If Timer 6 NOT= 1 Then Print Error 

S856 : Do ea Write Control RESET TIMER with 78 microsecond delay 

$857 : If Timer A * 1 Then Print Error 

Sess ’ If Timer B NOT= O Then Print Error 

gee 

5860 035232 BGNSUB 34/////////// BEGIN SUBTEST ////////7/7/ 

035232 TS.2: 

0352 104402 TRAP Cs6SUB 

eusess i. Write to TSSR register to soft initialize the controller 
5863 035234 004737 015774 JSR PC, SOFINIT sWRITE TO TSSR TO a INITIALIZE 

035240 103405 Bcs 10$ ;B8R IF SOFT INIT OKAY 
$865 035242 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

035244 ERRDF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 

035244 104455 TRAP CsEROF 

035246 000777 -WORD Sil 

035250 0036 -WORD SFIERR 

035252 012034 -WORD SFIMSG 

3 Do WRITE CHARACTERISTICS to nee a 2 neseege Oy 
5868 035254 004737 037360 108: JSR PC, TI6REST RESTORE RCKET *SEFAULTS 
9 03 005037 002222 CLR FAtrice ;CLEAR FATAL ERROR FLAG 

035 012704 037540 MOV PTIGPACKET RA 3;GET THE oss OF COMMAND PACKET 
5871 035270 012764 10 000006 MOV #8. ,PKBCNTC(R4) sMESSAGE PACKET SIZE NO EXTEND 
5872 035276 004737 010662 JSR PC,.WRTCHR :00 WRITE CHARACTERTSTICS COMMAND 

035 FORCERROR 12$ jaeor CE ERROR IF FORCER=1 
5874 035316 103407 BCcS 15% 3BR IF CARRY SET (GOOD RETURN) ¢ 

035 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 
5876 035322 NEXT .ERR 

035522 128: ERROF ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

035322 104455 TRAP CSEROF 

035324 001000 -woRD Zil2 

035 036262 -WORD .T16SSR 

035330 012046 .WORD PKTSSR 
5878 035332 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
5879 035336 15%: CKLOOP ;LOOP ON ERROR, IF FLAG wy. 

035336 104406 TRAP CSCLP1 
5881 3 (« o"tribe Timers A,B after RESET TIMER with 1 microsecond delay *) 
5882 3 Do ea Write Re hie RESET TIMER with 1 microsecond delay 
586863 035340 012700 MOV S.RSD,RO sRESET TIMER COMMAND 
5884 035344 013701 036202 MOV Tieb0l. i 31 MICROSECOND DELAY 
5885 035350 004737 037472 JSR AT TLUMISC sSETUP T16PK2 C ACK’ 

5886 035354 012704 037610 MOV eTi6PK2 sGET WRITE SUBSYSTEM COMMAND P. 
5887 035360 010465 000000 MOV R4, “Tg08(RS) 3SET THE P T ADORESS TO EXECUTE 
5888 035364 004737 016336 P SSR sWAIT FOR SSR TO 
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5890 035404 
5891 035406 
5892 035410 
5893 let 


5908 rears 


$926 

$927 035570 
5928 055572 
$929 035576 
$930 0:55602 
5931 055606 
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SEQ 0141 


ecs 40% ;8R IF CARRY SET (GOOD RETURN) 
+ e RO,R1 ; SAVE CONTENTS OF TSSR 
328: ERROF ERRNO, T162SSR,.PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 13 
. WORD T162SSR 
. WORD PKTSSR 
002222 INC FATFLG sSET FATAL ERROR FLAG 
40%: CKLOOP 3LOOP ON ERROR, IF FLAG <r. coc: 
3 If Timer A NOT= 0 Then Print Error 
3 If Timer 8 NOT= O Then Print Error 
CLR R2 sINIT EXPO 
000010 BIC @S2.ATIM,R2 sTIMER A EXPD=0 
000004 BIC @S2.BTIM,R2 sTIMER B EXPD=0 
037602 MOV @T16BFSTA,RO sGET RECV READ STATUS 
000002 MOV 2CRO),R1L 3GET RECV BYTE 2 
177763 BIC @rC<S2. ATIM!S2.BTIM>,R1 i SAVE TIMER A:B RECV ONLY 
FORCERROR 72$,NOTSSR 3:880 
CMP R2,R1 FEXPD EQUAL RECV? 
BEQ 80% 36R IF YES 
NEXT .ERRNO 
728: ERRHRD ERRNO, 1716701, TIMEXP sREPORT ERROR 
TRAP CSERHRD 
.- WORD 514 
. WORD T16TO1 
- WORD TIME 
80%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
; Do ea Write Control RESET TIMER with 28 microsecond delay 
000001 MOV @Ms .RSD,RO sRESET TIMER COMMAND 
036204 MOV T16028,.R1 128 MICROSECOND DELAY 
037472 JSR PC.T1 sSETUP T16PK2 COMMAND PACKET 
037610 MOV @T16PK2 ,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4, TSDBCRS) 3;SET THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 11 ah ona ERROR IF FORCER=1 
6cs 120% 36R IF CARRY SET (S009 RETURN) 
ae RO.R1 + SAVE CONTENTS OF TSSR 
1128: ERROF ERRNO, T162SSR ,PKTSSR sDEVICE FATAL SSK FAILED TO SET 
TRAP CSEROF 
.- WORD 515 
- WORD 1162SSR 
. WORD PKTSSR 
Ov2222 INC FATFLG 3SET FATAL ERROR FLAG 
1208: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 
3 If Timer A NOT= 1 Then Print Error 
3 If Timer 6 NOT= 1 Then Print Error 
CLR R2 sINIT EXPD 
000010 BIS -ATIM,R2 sTIMER A EXPD=1 
000004 BIS @#S2.6TIMN,R2 sTIMER B EXPD= 
037602 MOV @T16BFSTA,RO :GET RECV READ STATUS 
000002 MOV 2(RO),.R1 3sGET RECV BYTE 2 


TSVS - HARDWARE TESTS MACRO YOS.02 Monday 16-Sep-85 10:39 Pege 83-8 
TEST S: SUBTEST 2: VERIFY TIMERS A,B 


SEQ 0142 


| 
| S338 035612 042701 177763 BIC @tC<S2.ATIM!S2.6TIM>.R1 ;SAVE TIMER A:B RECV ONLY 
at 035616 FORCERROR 172 ,NOTSSR 1880 
934 035626 020201 CMP R2,R1 +EXPO ry RECV? 
|  §935 035630 001404 BEQ 180% :8R IF YE 
5936 035632 NEXT .ERRNO 
5937 035632 172%: ERRHRD ERRNO,T16T28, TIMEXP sREPORT ERROR 
035632 104456 TRAP CSERHRD 
035634 001004 -WORD 516 
035636 037060 -WORD T16T28 
035640 015552 a TIMEXP 
5938 035642 180%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
5999 035642 104406 TRAP CSCLP1 
5940 3 Do e Write Control RESET TIMER with 53 slorgogoend delay 
5941 035644 012700 000001 MOV @Ms ..RSD,RO sRESET TIMER COMMAND 
035650 o4370) 036206 MOV Tie0ss ai 353 Y eps rw DELAY 
5943 035654 737 037472 JSR PC, TI6WMISC | SETUP T16PK2 COMMAND PACKET 
5944 035660 012704 037610 MOV @T16PK2,R4 :GET WRITE SUBSYSTEM COMMAND PACKET 
$945 035664 C10465 000000 MOV R4, TSOBCRS) 3SET THE PACKET ADORESS TO EXECUTE 
5946 035670 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
5947 035674 FORCERROR 2128 posor ones ERROR IF FORCER=1 
5948 035710 103407 ecs 220% 38R IF CARRY SET (GOOD RETURN) 
5949 035712 010001 MOV RO,R1 + SAVE CONTENTS OF TSSR 
5950 035714 NEXT .E 
5951 035714 2128: ERROF ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035714 104455 TRAP CtEROF 
035716 001005 -WORD 517 
035720 036317 -WORD T162SSR 
035722 012046 -WORD PKTSSR 
5952 035724 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
$953 035730 220%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
035730 104406 . TRAP CSCLP1 
’ If Timer A NOT= 0 Then Print Error 
5955 3 If Timer 6 NOT= 1 Then Print Error 
5956 035732 005002 CLR R2 sINIT EXPD 
5957 035734 042702 000010 BIC @S2.ATIM,R2 sTIMER A EXPD=0 
5958 035740 052702 000004 BIS @S2.BTIM,R2 sTIMER B EXPD= 
5959 035744 012700 037602 MOV @T16BFSTA,RO sGET RECV READ STATUS 
5960 035750 016001 000002 MOV 2CRO).R1 sGET RECV BYTE 2 
5961 035754 042701 177763 BIC @tC<S2.ATIM!S2. OT IM» RA iSA VE TIMER A:B RECV ONLY 
5962 035760 FORCERROR 272% ,NOTSSR 3880 
5963 035770 020201 CMP R2,R1 +EXPO EQUAL RECV? 
5964 035772 001404 BEQ 280% 38R IF YES 
5965 035774 NEXT .ERRNO 
5966 035774 272%: ERRHRD ERRNO,T167S3, TIMEXP sREPORT ERROR 
035774 104456 TRAP CSERHRD 
035776 001006 -WORD 518 
036000 037160 -WORD T16TS3 
036002 015552 -WORD TIMEXP 
5967 036004 280%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
036004 104406 TR CSCLP1 
3 Do e Write Control RESET TIMER with 78 microsecond delay 
5969 036006 012700 000001 MOV r sRESET TIMER C 
5970 036012 013701 036210 MOV T16078,R1 378 MICROSECOND DELAY 
5971 036016 004737 037472 JSR AT nS sSETUP T16PK2 C 
5972 036022 012704 037610 MOV @T16PK2 3GET WRITE SUBSYSTEM COMMAND PACKET 
5973 036026 010465 000000 MOV Ra TSDBtRS) sSET THE PACKET ADORESS TO EXECUTE 
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a 036032 004737 016336 


37 002222 


000010 
000004 
037602 
177763 


000001 
000040 
000076 
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JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 
F 3128 yee SBOFORCE ERROR IF FORCER=1 
ecs 3208 18R IF CARRY SET ¢G000 RETURN) 
MOV RO,R1 SAVE CONTENTS OF TSSR 
312¢: ERROF ERRNO, T162SSR.PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP  CSEROF 
-WORD 519 
[WORD T162SSR 
[WORD PKTSSR 
INC FATFLG :SET FATAL ERROR FLAG 
320%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP =s-s« CSCLP1 
3 If Timer A NOT= 1 Then Print Error 
3 If Tieaer 6 NOT= 0 Then Print Error 
CLR R2 sINIT € 
6Is @S2.ATIN,R2 sTIMER A EXPD=1 
BIC @52.6T sTIMER B EXPD= 
MOV @T168FSTA,RO sGET RECV READ STATUS 
MOV 2(RO),R1 sGET RECV BYTE 2 
BIC @tC<S2.ATIM!S2.6TIM>,R1 ;SAVE TIMER A:6 RECV OMLY 
F 372%, NOTSSR 3880 
CMP R2.R1 sEXPD EQUAL RECV? 
6EQ 3808 36R IF YES 
NEXT . ERRNO 
3728: ERRNO, 116778, TIMEXP ;REPORT ERROR 
TRAP CSERHRD 
.WORD 520 
eo thee 
380%:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP =—s-s« CCL P12 
EMDSus TAAAAAAAAAAAA Se sere S4AAGAGAGGG 
TRAP =s-_-« CSESUB 
TST FATFLG say FATAL ERRORS ? 
BEQ 4608 
JSR PC. CKDROP TRY TO OROP THe UNIT 
460%: JSR PC. TSTLOOP sSHOULD WE DO ITERATIONS? 
ecc 465% i0R IF NO 
aie ee T16L00P sLOOP UNTIL ITERATIONS DONE 
ExIT TST 


}LOCAL STORAGE FOR THIS TEST 


Hispon .WORD 1 
116028: "WORD 40 
116053: “WORD «76 


s4//4//4/44 EXIT TEST ee es 


31 MICROSECOMD DELAY (ACTUALLY .8 MIC) 
326 MICROSECOMD DELAY (.6 MICROS PER) 





SEQ 0143 








a 
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036210 
8 


000142 


012701 
012702 
105021 
005302 
003375 
000207 
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037562 
000026 


037426 
037620 
000005 


SEQ 0144 


716078: -WORD 142 378 MICROSECOND 
Sd 

;LOCAL TEXT MESSAGES FOR TEST 

g= 


164 TST16I0: -ASCIZ ‘Extended Features Switch and Timers A,B’ 

111 T16SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 

111 T162SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 

111 T163SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ : - 

163 TI6TSBA:.ASCIZ ‘Bus Address Register (TSBA) Incorrect after Write Characteristics’ 

1 T1I6LEN: .ASCIZ ‘Data Field Length in Message Buffer Incorrect after Write Characteristics’ 


64 
123 TI6REJ:.ASCIZ ‘TSSR Function Reject Not Returned When Non-Existent Buffer Address Specifi 


155 T16T01: .ASCIZ ‘Timer A,B Incorrect after Reset Timer with 1 microsecond Delay’ 
15S 116T28:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 28 microsecond Delay’ 
15S 116TS3:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 53 microsecond Delay’ 
155 saat es. ‘Timer A,B Incorrect after Reset Timer with 78 microsecond Delay’ 


o 
; SET DEFAULT PACKET 


TieREST: 
MoV OTI6PACKET,RO PACKET ADDRESS 
MOV @100004, (RO)+ }WRITE CHARACTERISTICS WITH ACK 
MOV @T16DATA, (RO)+ }ADORESS OF CHAR DATA BLOCK 
CLR (RO)+ EXTENDED ADDRESS 
MOV #10. ,(RO)+ iSIZE OF MESSAGE PACKET 
MOV @T16BFR,(RO)+ MESSAGE BUFFER ADDRESS 
CLR (RO)+ ;CLEAR EXTENDED BUFFER ADDRESS 
HOV 20. ,(RO)+ ;LENCTH OF MESSAGE BUFFER 
CLR (RO)> ;CLEAR ESS,ENB,EAI,ERI 
CLR CRO) ;CLEAR EXTENDED FEATURES WORD 
cL T16BFR ;CLEAR 1ST LOCATION IN MESSAGE BUFFER 
a 


° 
; CLEAR MESSAGE BUFFER 


T16CLRBUF : : 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV oT16BFR,R1 :GET MESSAGE BUFFER ADDRESS 
MOV @T16BEND -T16BFR,R2 ;SiZE OF MESSAGE BUFFER IN BYTES 
108: CLRB = (R1)+ ;CLEAR A BYTE 
DEC 2 ; DONE ? 
BGT 108 :8R IF NO 
RTS PC ; RETURN 
3° 
; SETUP T16PK2 PACKET FOR READ STATUS 
116SRO 
JSR PC, T1I6CLRBUF ;CLEAR MESSAGE BUFFER 
MOV @T16072,R0 ;WRITE SUBSYSTEM DATA BUFFER 
MOVB @PW. ROSTATUS,(RO)> ;STORE READ STATUS COMMAND IN BSELO 
CLRB =. (RO) ;CLEAR BSEL1 
RTS PC ; RETURN 


a a a a 
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6074 
6075 
6076 
6077 
60768 
6079 


6103 


GESUBURREOMUSSECeUCEKCCSRORSSSR SEAR SESeSSSROEEESS 
°o ° ° °o 


037472 


037540 
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037620 
000010 
000200 


; SETUP T16PK2 PACKET FOR WRITE MISC. 


SEQ 0145 


; 
INPUT: 
: RO CONTAINS WRITE MISC FUNCTION CODE (BSEL1) 
: Ri CONTAINS DELAY (TIMES 800 NS) FOR BSEL2 
TiewnISC: 
SAVREG 


s;SAVE R1-RS UNITL NEXT RETURN 
s;CLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 

STORE WRITE MISCELLANEOUS IN BSELO 
s;STORE WRITE MISC CODE IN BSEL1 
oe ca (RESET TIMER) IN BSEL2 
; 


; SETUP T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 


JSR PC, TI6CLRBUF 
MOV eTiedT2.R2 
MOVE = @PW._ WHISC..(R2)+ 
move R2)s 
MOVB R11, (R2) 
RTS PC 

fiesext: 
MOV @T160T2,R0 
MOV8 = @PW.WMISC,(RO)> 
MOVE OMS EXT. (RO) 
RTS PC 


.#€, 6106177770 
[WRITE CHARACTERISTICS COMMAND PACKET 


T16PACKET: 
_ WORD 
“WORD T16DATA 
"WORD 0 
"WORD 10. 
T16DATA: 
_WORD T16BFR 
"WORD 0 
"WORD 20. 
"WORD 0 
“wORD 0 
;MESSAGE BUFFER 
TIGBFR: 
.WORD 0 
"WORD 0 
"WORD 0 
“WORD 0 
“WORD 0 
"WORD 0 
"wORD 0 
"WORD 0 


sWRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE MISCELLANEOUS IN BSELO 
——_— EXTENDED FEATURES IN BSEL1 


;COMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sMESSAGE PACKET SIZE 


sCHARACTERISTICS VATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sESS,ENB, EAI, ERI 
sEXTENDED FEATURES WORD 


s;BEGIN Me BUFFER 
sMESSAGE TYPE 
sDATA FIELD LENGTH 


3xST3 
sXST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 
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6133 037602 
oi 38 037610 


7 
6141 037610 


AAAAAGH 
ropes 
vyuw 

re 

uw 

oo! 


104401 
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TI6BFSTA: .BLKB 6. 
TI6BEND : 


SEQ 0146 


;READ STATUS AND WRITE FIFO BUFFER 


sEND OF MESSAGE BUFFER 


; 
sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 


tiepKe: 


T160T2: 


P.WR 
7160 


TSUB!P . ACK 
T2 


sWRITE SUBSYSTEM WITH ACK 
sLOW ADDRESS OF DATA BLOCK 
sHIGH ADDRESS OF DATA BLOCK 
sMINIMUM MESSAGE PACKET SIZE 


;DATA BLOCK 
;BSELO 
;6SEL1 


;SEL2 
sWRITE FIFO DATA OUTPUT BUFFER 


L10053: 
TRAP 


CsETST 
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TEST 6: FIFO EXERCISER 
6136 -SBTTL TEST 6: FIFO EXERCISER 


SEQ 0147 


615 see 
6138 ; TEST DESCRIPTION: 
3 
6160 : This test uses the Write Subsystem Memory command to 
6161 3 verify the controller's FIFO and associated stetus and 
6162 3 control logic. 
6163 8 
6164 ; TEST STEPS: 
6165 8 } 
6166 ; REPEAT FOR LOOPCNT 
6167 3 BEGIN } 
6168 3 Do Subtest 1 - FIFO Initielize status test 
6169 ; Subtest 2 - FIFO Write Single Byte test 
6170 3 Do Subtest 3 - FIFO Write Multiple Bytes test 
6171 3 Do Subtest 4 - FIFO Verify ILW Stetus test 
6172 3 Do Subtest 5 - FIFO Input Ready test 
61735 3 Do Subtest 6 - FIFO Verify Reset FIFO test 
6174 3 END 
6175 s-- 
6176 
6177 
6178 037726 BGNTST 
037726 T6:: 
6183 037726 012700 046156 MOV @TST17ID,RO sASCIZ MESSAGE TO IDENTIFY TEST 
6184 037732 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
6185 037736 012737 000012 002216 MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
6186 037744 004737 017274 JSR PC .KTOFF sSHUT OFF MEMORY MANAGEMENT 
6187 037750 005037 003134 CLR KTENABLE sREALLY SHUT DOWN KT-11 
61868 037754 T17LOOP: 
6169 
gist 
eps | -SBTTL TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 
zoe 
6194 ; TEST 6: SUBTEST 1: 
6195 H 
Sis? ; SUBTEST DESCRIPTION: 
3 
6198 3 This test verifies, by usi the Read Stetus select code, 
6199 ’ thet the FIFO stetus is in the correct initial state after 
6200 ; the controller is initialized (Input Ready TRUE, 
6201 ; Output Ready and Dete In Miss FALSE). These status 
6202 3 signels ere checked by the controller's self-test 
6203 8 sequence, so this subtest is actually more of a partial 
6204 8 check of the Read Status function than the FIFO status. 
6205 3 
6206 3; TEST STEPS: 
6207 3 
6208 8 BEGIN ; 
6209 5 Write to TSSR to soft initielize 
6210 8 Do e WRITE CHARACTERISTICS to setup ea message buffer 
6211 3 Do ea WRITE SUBSYSTEM Read Status 
6212 3 If Input Kzedy NOT*=1 Then Print Error 
6215 3 If Output Ready NOT=0 Then Print Error 
6214 8 
3 


a Dete In Miss NOT=0 Then Print Error 





TTT TTT EE snp st = 
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& 


015774 


037774 


037776 002222 
040002 


047550 
010662 


002222 


047334 
047720 
000000 


016336 


Monday 16-Sep-85 10:39 Page 84-1 


58: 


3 
108: 


42%: 


62%: 


BGNSUB 


TAAAAAAALAALA — AAA 
"TRAP = C$BSUB 


Write to TSSR register to soft initialize the controiler 


JSR PC ,SOF INIT sWRITE TO TSSR TO = INITIALIZE 

Bcs 10$ :6R IF SOFT INIT OKAY 

MOV RO,R1 3SAVE CONTENTS OF TSSR 

ERROF  ERRNO,SFIERR,SFIMSG DEVICE FATAL DURING INIT 
TRAP CSEROF 
-WORD 600 
-WORD SFIERR 
-WORD SFIMSG 

Do e WRITE CHARACTERISTICS to “ret @ mess a 

CLR FATFLG Be FAT Antares a 

MOV @TI7PACKET ,R4 S OF ton PACKET 

JSR ° HR ;00 WRITE MOHARACTERISTICS COMMAND 

FORCERROR 42% ;8@DFORCE ERROR IF FORCER=1 

Bcs 3;8R IF CARRY SET (GOOD RETURN) 

MOV R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF  ERRNO,T17SSR,PKTSSR 


INC FATFLG 

CKLOOP 

Do a Write Seovetes READ STATUS 
JSR PC.T17SRD 

MOV @T17PK2,R4 

MOV R4,TSOBCRS) 

JSR PC,CHKTSSR 
FORC 
BcS 70$ 
MOV RO,R1 

NEXT .ERRNO 
ERRDOF ERRNO,T173SSR,PKTSSR 
INC FATFLG 
CKLOOP 

Set WORDS 0-7 

JSR PC, TI7SETEXP 
MOV @TI7EXSTA, R1 
MOV @T17BFSTA,R2 
MOV CR2)¢,CRID« 
MOV (R2),(R1) 
BIS @S2.INROY,(R1) 
BIC @S2.QUTRDY,(R1) 


sDEVICE FATAL SSR vane TS SET 


RAP CSEROF 
- WORD 1 
-WORD T17SSR 
-WORD PKTSSR 
ty FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
sSETUP PACKET FOR READ Aad 
sGET WRITE iene? tees COMMAND PACKET 
sSET THE as = a TO EXECUTE 
swAIT FOR SSA tT OQ SET 


so oon ERROR IF FORCER=1 
3BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 602 
-WORD T173SSR 
-WORD  W#KTSSR 


;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG er. 
TRAP CsCLP1 


of expd message a. = to A since not testing 


T WORDS 0-7 EXPD=RECV 
sGET EXPECTED READ STATUS 
sGET RECV READ STA TUS 
sSET EXPD WORD #8 = RECV TEMP 
sSET EXPD WORD @9 = RECV TEMP 
;SET EXP INPUT READY= TRUE 
sSET EXP OUTPUT READY= FALSE 


SEQ 0148 
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TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 
6257 040156 042711 000200 
625 














6268 040216 82%: 


040230 104403 
6273 040232 005737 002222 


6274 040236 001402 
6275 040240 004737 017202 


BEGIN 


: 
; 
; 
; 
: 
; 
; 
3 
3 
: 
; 
; 
s TEST STEPS: 
‘ 
3 
: 
5 
‘ 
; 
: 
; 
; 
i 
3 
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BIC #S2.D0IM,(R1) SET EXP DATA IN MISS = FALSE 
If Input Ready NOT=i then Print Error 

If Output Ready NOT=0 or Data in er NOT=0 Then Print Error 

CLR RO HIGH RECV ADDRESS FOR CKMSG2 
MOV @T17BFR,R1 ;LOW ECV ADDRESS FOR CKMSG2 
MOV @TLI7EXP ,R2 sEXPD ADDRESS 

MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 


JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 82¢,NOTSSR - 3880 
Bcs 90% . :BR IF YES 


NEXT. ERRNO 
ERRHRD ERRNO,T171CMP,MSGSTAT ;REPORT ERROR 
TRAP C#ERHRD 
-WORD 603 
-WORD  1171CMP 
MSGSTAT 


. WORD 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
ENDSUB s4/////41///47 END SUBTEST ///////7//7/ 

L10057: 

TRAP CsESuB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 160$ ;BRANCH IF NOT 
JSR PC, CKDROP :TRY TO DROP THE UNIT 


sere 040244 1608: 

$375 .SBTTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 
6280 3o¢ 

6281 ; TEST 6: SUBTEST 2: 

6282 3 

sear SUBTEST DESCRIPTION: 


This subtest verifies the ability of the FIFO to correctly 
pass a single data rd te from 15. t to output. For each 

of 256 a ty values (0-377 octal) the following is done: 

Initial FIFO status is checked 

The Write FIFO function, specifying a count of 

one byte to be written is executed. 

Read Status is executed and FIFO status is checked. 
op htt, executed and the data and final status 
is chec . 


mw ue 


Write to TSSR to soft initialize 


f tae Ready NOT=1 # Then Print Error 
If Output Ready NOT=O Then Print Error 
if Data In Miss NOT=0 Then Print Error 


REPEAT FOR DATA FROM O TO 377 OCTAL 
BEGIN 


SEQ 0149 


eS cee aC 


ee ee = I I 
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6307 3 Do ea Write Subsystem WRITE NPR to set tape direction out 

6308 : Do a Write Subsystem WRITE re with byte count equal to 1 j 

6309 ; e Write Subsystem READ STA | 

6310 3 If Input Ready NOT= Then Print Error 

6311 3 If Output Ready NOT=1 Then Print Error 

6312 3 If Data In Miss NOT=0 Then Print Error 

6315 3 Do Write eg ty READ FIFO with byte count equal to 1 

6314 3 If Date read from FIFO NOT= be Date sent Then Print Error 

6315 3 Do a Write Subsystem READ STATUS 

6316 3 If Input Ready NOT*1 # Then Print Error 

6317 3 If Output Ready NOT=0 Then Print Error 

6318 3 If Data In Mise NOT=0 Then Print Error 

6319 F END 

esse + END 

> . 

6322 040244 BGNSUB ; ( 3////4//////// BEGIN SUBTEST ////////7// 
040244 76.2: 

6323 104402 TRAP Cs6SUB 

6324 : Write to TSSR register to soft initialize the controller 

6325 040246 S$: 

6326 040246 004737 015774 JSR PC ,SOFINIT sWRITE TO TSSR Jo oot INITIALIZE 

6327 040252 103405 BcS 10% :B8R IF SOFT INIT OKAY 

6328 040254 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6329 040256 ERRDF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
040256 TRAP CSEROF 
040260 001133 -WORD 603 
040262 003652 -WORD SFIERR 
040264 012034 -WORD SFIMSG 

6330 3 Do a WRITE CHARACTERISTICS to cotue 2 mes TAC ER pire q 

6331 040266 005037 002222 108: CLR" FAT AR FA = 

6332 040272 012704 047550 MOV @T17PACKET ,R4 ;GET THE A SOF. EOHMAND PACKET 

6333 040276 004737 010662 JSR PC ,WRTCHR ;00 WRITE “CHARACTERISTICS COMMAND 

6334 040302 FORCERROR 42$ ORCE ERROR IF FORCER=1 

6335 040316 103407 ecs 50% ;BR IF chRRy SET (GOOD RETURN) 

"336 040320 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

0337 040322 NEXT .ERR' 

6338 040322 42%: ERROF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040322 104455 TRAP CsEROF 
040324 001134 -WORD 604 
040326 046175 -WORD T17SSR 
040330 012046 -WORD PKTSSR 

6339 040332 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

6340 040336 50$: CKLOOP sLOOP ON ERROR, IF FLAG a 
040336 104406 : TRAP CSCLP1 

6341 3 Do a Write Smeretes READ STATUS 

6342 040340 004737 047334 JSR PC sSETUP PACKET FOR READ [Add 

6343 040344 012704 047720 MOV OTi7PK2 R4 3GET WRITE SUBSYSTEM COMMAND PACKET 

6344 040350 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

6345 040354 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

6346 040360 FORCERROR 62% s@880FORCE ERROR IF FORCER=1 

6347 040374 103407 Bcs 70$ :;BR IF CARRY SET (GOOD RETURN) 

6348 040376 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6349 040400 NEXT .ERRNO 

6350 040400 62%: ERRDF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR ARLES TO. SET 


CsEROF 
605 


040400 104455 
040402 001155 - WORD 
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| SEQ 0151 
TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 
046276 -WORD 1173SSR 
040406 012046 .WORD PKTSSR 
6351 040410 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
6352 040414 708: CKLOOP sLOOP ON ERROR, IF FLAG SET j 
040414 104406 TRAP CSCLP1 j 
6353 : Set WORDS 0-7 of 7 yy message buffer = to recv since not testing 
6354 040416 004737 047516 JSR PC, TI7SETEX sSET WORDS 0-7 EXPD=RECV 
6355 040422 012701 045752 MOV @T17EXSTA,R1 3sGET EXPECTED. READ STATUS 
6356 040426 012702 047612 MOV @T17BFSTA,R2 3GET RECV READ STATUS 
6357 040432 012221 MOV (R2)¢,CR1)+ sSET EXPD WORD #6 = RECV TEMP 
6358 040434 011211 MOV CR2),(R1) sSET EXPD WORD #9 = RECV TEMP 
6359 040436 000020 BIS S2.INRDY,CR1) sSET EXP INPUT READY= TRUE 
6360 040442 042711 000040 BIC #S2.OUTROY,(R1) sSET EXP OUTPUT READY= FALSE 
6361 040446 042711 000200 BIC #S2.0IM,(R1) 3SET EXP DATA IN MISS = FALSE 
6362 $ If Input Ready NOT=1 then Print tere r 
6363 3 If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
6364 040452 005000 CLR RO sHIGH RECV ADORESS FOR CKMSG2 
6365 040454 012701 047572 MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
6366 040460 C1i2702 045732 MOV @T17EXP ,R2 sEXPD ADDRESS 
6367 040464 012703 000024 MOV #20. ,.R3 sNUMBER OF BYTES TO COMPARE 
6368 040470 004737 011500 JSR PC ,CKMSG2 iEXPO EQUAL RECV? 
6369 040474 FORCERROR 82$,NOTSSR 
6370 040504 103404 6cS 90% i8R IF YES 
6371 040506 NEXT .ERRNO 
6372 040506 82%: ERRHRD ERRNO,T171CMP,MSGSTAT sREPORT ERROR 
040 104456 TRAP CSERHRD 
040510 001136 -WORD 606 
040512 046515 -WORD 1T171CMP 
040514 012350 -WORD MSGSTAT 
6373 040516 90%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
gue 040516 104406 TRAP CSCLP1 
6375 ; Repeat for DATA from 0 to 377 
6376 040520 012737 000000 002312 MOV #0,DATA sGET FIRST DATA 
6377 040526 100$: sREPEAT L aoe, 
6378 3 Do a Write Subsystem WRITE NPR to set t direction out 
6379 040526 012700 000100 MOV @NP .OUT,RO sSET T DIRECTION OUT 
6380 040532 004737 047376 JSR PC, T17SNPR iSETUP T17PK2 FOR WRITE NPR 
6381 040536 012704 047720 MOV OTi7PK2,.R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
6382 040542 010465 000000 MOV R4, TSDBCRS) iSET THE PACKET ADDRESS TO EXECUTE 
6383 040546 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
6384 040552 FORCERROR 102$ ;@@0FORCE ERROR IF FORCER=1 
6385 040566 103407 6cs 105$ ;BR IF CARRY SET (GOOD RETURN) 
6386 040570 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6387 040572 NEXT .ERRNO 
6388 040572 102$: ERROF ERRNO,T174SSh.,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040572 104455 TRAP CSEROF 
040574 001137 . WORD 7 
040576 046343 -WORD 1174SSR 
040600 012046 -WORD PKTSSR 
6389 040602 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6390 040606 105%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
040606 104406 TRAP CSCLP1 
6391 3 -& e Write Eeoyetes WRITE FIFO with byte count equal to 1 
6392 040610 012700 000001 #1,R0 sWRITE 1 BYTE 
6393 040614 012701 002312 HOV @DATA,R1 iF IFO WRITE DATA ADDRESS 
6394 040620 004737 047422 JSR PC, T17WFIF sSETUP T17PK2 FOR WRITE FIFO 





_ ‘TSVS - 





HARDWARE TESTS 
TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 
6395S 040624 012704 047720 
010465 000000 
004737 016336 


103407 
010001 


1078: 


104455 
001140 
046406 


012046 
005237 002222 


047334 
047720 


000000 
016336 


1128: 


132%: 
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SEQ 0152 


If Input Ready NOT#=1 then Print Error 
4 Output Ready NOT=1 or Data in Bt NOT=0 Then Print Error 


MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
JSR PC. CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 107% , ORCE ERROR IF FORCER=1 
Bcs 1c :8R IF CARRY SET (GOOD RETURN) 
c 0,R1 ; SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO,T17SSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
.WORD 608 
“WORD T17S5SSR 
“WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Do a Write Sexton READ STATUS 
JSR PC,T1 ;SETUP PACKET FOR READ STATUS 
MOV OTi7PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKTSSR WAIT FOR SSR TO SET 
FORCE ii : BDF ORCE ERROR IF FORCER=1 
BCS 120% :8R IF CARRY SET (GOOD RETURN) 
MOV enn geR? ;SAVE CONTENTS OF TSSR 
ERROF ERRNO,T173SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP  CSEROF 
.WORD 609 
"wORO  T173SSR 
“WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Set WORDS 0-7 of ound message buffer = to wgey ince not testing 
JSR PC, TL7SETEX }SET WORDS 0-7 EXPD=RECV 
MOV @TI7EXSTA,R1 ;GET EXPECTED READ STATUS 
MOV @T176FSTA,R2 ;GET RECV READ STATUS 
MOV R2)+,(R1)> ;SET EXPD WORD 06 = RECV TEMP 
MOV R2),(R1) 3SET EXPD WORD #9 = RECV TEMP 
BIS @S2. INRDY,(R1) ;SET EXP INPUT READY= 1 
BIS @S2.OUTROY,(R1) 3SET EXP OUTPUT READY= 1 
BIC @52.DIM, (Ri) ;SET EXP DATA IN MISS = 0 
R RO HIGH RECV ADDRESS FOR CKMSG2 

MOV @T17BFR,R1 LOW RECV ADDRESS FOR CKMSG2 

MOV @T17EXP .R2 sEXPD ADDRESS 

MOV @20..R3 sNUMBER OF BYTES TO COMPARE 

JSR PC, CKMSG2 iEXPD EQUAL RECV? 

FORCERROR 132% ,.NOTSSR 3880 

BCS 140 ‘BR IF YES 

NEXT . ERRNO 

ERRHRD ERRNO,T173CMP,MSGSTAT  ;REPORT ERROR 
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| SEQ 0153 
| TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 
6438 041054 1408: CKLOOP sLOOP ON ERROR, IF FLAG SET 
6490 041054 104406 TRAP CSCLP1 
3 Do Write P wr - eee READ FIFO with n byte count equal to 1 
i 6441 041056 012700 000001 MOV oR READ BYTE COUNT 
| 6442 041062 004737 047456 JSR pc’ TL7RFIF + SETUP T17PK2 FOR READ FIFO 
6443 041066 012704 047720 MOV @Ti7PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
6444 041072 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
6445 041076 004737 016336 JSR PC,CHKTSSR }WAIT FOR SSR TO SET 
6446 041102 FORCERROR 1428 ror ERROR IF FORCER=1 
6447 041116 103467 Bcs 150% 38R IF CARRY SET (GOOD RETURN) 
6448 041120 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
6449 041122 NEXT .ERRNO 
6450 041122 1428: ERRDF ERRNO,T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041122 104455 TRAP CSEROF 
041124 0011435 -WORD 611 
041126 , 046452 -WORD 1176SSR 
041130 012046 ‘ PKTSSR 
6451 041132 C05237 002222 INC FATFLG sSET FATAL ERROR FLAG 
6452 041136 1508: CKLOOP ;LOOP ON ERROR, IF FLAG oer 
041136 104406 CSCLP1 
6453 F Set WORDS 0-7 of onge message buffer = to recv since not yp ae 
041140 004737 047516 JSR PC, TL7SETEX sSET WORDS 0O- *RECV 
6455 041144 012701 045 MOV @T1I7EXSTA.R1 :GET EXPECTED READ STATUS 
041150 012702 047612 MOV @T17BFSTA,R2 3GET RECV READ STA 
6457 041154 013721 002312 MOV DATA, C(R1)+ 3SET EX #6 = COUNT DATA 
6458 041160 011211 MOV CR2),CR1) sSET EXPD WORD #9 = RECV (NOT TESTING) 
6459 3 + Dete read from FIFO NOT= to Date sent Then Print Error 
6460 3 The deta is in WORD 08 of the anene buffer 
6461 041162 005000 CLR RO RECV ADDRESS FOR CKMSG2 
6462 041164 012701 047572 MOV @T17BFR,R1 Ou RECV ADDRESS FOR CKMSG2 
6463 041170 012702 045732 MOV @T17EXP ,R2 sEXPD ADDRESS 
6464 041174 012703 000022 MOV #18. ,R3 sNUMBER OF BYTES TO COMPARE 
6465 041200 004737 011500 JSR PC ,CKMSG2 —— EQUAL RECV? 
6466 041204 FORCERROR 1528 ,NOTSSR 
6467 041214 103404 BcS 160% ;BR IF YES 
6468 041216 NEXT .ERRNO 
6469 041216 1528: ERRHRD ERRNO, T172CMP,MSGSUB sREPORT ERROR 
041216 104456 TRAP CSERHRD 
041220 001144 -WORD 612 
041222 046577 -WORD T172CMP 
041224 013742 -WORD MSGSUB 
6470 041226 160$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
navi 041226 104406 TRAP CSCLP1 
6472 F Do a Write Subsystem READ STATUS 
6473 041230 004737 047334 JSR PC,T17SROD ;SETUP PACKET FOR READ STATUS 
6474 041234 012704 047720 MOV @T17PK2,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 
6475 041240 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
6476 041244 004737 016336 JSR PC,..CHKTSSR ;WAIT FOR R. ante SET 
6477 041250 FORCERROR 162% CE ERROR IF FORCER=1 
6478 041264 103407 Bcs 1708 IF chan Se (GOOD RETURN) 
6479 041266 010001 MOV RO,R1 eave CONTENTS” OF TSSR 
6480 041270 NEXT .ERRNO 
6481 041270 1628: ERRDF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041270 104455 TRAP CsEROF 
041272 001145 -WORD 6135 





-_——_— 
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| SEQ 0154 
/ TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 


| 
j 041274 046276 -WORD 1T173SSR 
} 041276 012046 «WORD PKTSSR 
6482 041300 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
6463 0413504 170%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
| 041504 104406 TRAP —- CSCLP1 
H Set WORDS 0-7 of one message buffer = to recv since not testing 
004737 047516 JSR PC, TL 7SETEX SET - =RECV 
6486 041312 012701 045752 MOV @TI7EXSTA,R1 sGET EXPECTED READ STATUS 
6487 041316 012702 047612 MOV @T17BFSTA,R2 sGET RECV S 
012221 MOV 2). CRI Ss SET E @6 = RECV TEMP 
6489 0413524 011211 (R2),¢R sSET E #9 = RECV TEMP 
711 000020 BIS @S2. INROY,(R1) sSET EXP INPUT READY= 1 
6491 0413352 042711 000040 BIC @S2.QUTROY,(R1) sSET EXP OUTPUT READY= 0 
6492 041336 042711 000200 BIC @S2.D0IM,(R1) SET EXP DATA IN MISS = 0 
3 : If Input Ready NOT=1 then Print Error 
6494 3 If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
6495 041342 005000 CLR RO sHIGH RECV ADORESS FOR 
6496 041344 012701 047572 MOV @T17BFR,R1 ;LOW RECV ADORESS FOR CKMSG2 
6497 041350 C1i2702 045732 MOV @T17EXP .R2 sEXPD ADDRESS 
6496 0413554 012703 000024 MOV 20. ,.R3 sNUMBER OF BYTES TO COMPARE 
6499 041360 004737 011500 JSR PC .CKMSG2 sEXPD EQUAL RECV? 
6500 041364 FORCERROR 172% .,.NOTSSR 3:880 
6501 041374 103404 ecs 180% 36R IF YES 
6502 041376 NEXT . ERRNO 
6503 0413576 172%: ERRHRD ERRNO,TI74CMP,MSGSTAT  ;REPORT ERROR 
041376 104456 TRAP CSERHRD 
041400 001146 -WORD 614 
041402 046757 «WORD T174CMP 
041404 012350 -WORD MSGSTAT 
6504 041406 180%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
041406 104406 TRAP CsCLPi 
6505 041410 FORCEXIT 205% ; 830 
6506 041420 005237 002312 INC DATA iGET NEXT TEST DATA 
6507 041424 023727 002312 000377 CMP DATA, @377 sDONE O TO 377? 
6508 041432 101002 BHI 205% :8R IF YES 
6509 041434 000137 040526 JMP 100$ 300 ANOTHER TEST PATTERN 
eate 041440 2058: 
6512 041440 ENDSUB s4/4/4041111147 END SUBTEST ////////47 
041440 L10060: 
6513 041440 104403 TRAP CsEsuB 
6514 041442 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
6515 041446 001402 BEQ 260% s;BRANCH IF NOT 
6516 041450 004737 017202 JSR PC ..CKDROP i TRY TO DROP THE UNIT 
Sate 041454 2608: 
632° -SBTTL TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
6521 soe 
6522 s TEST 6: SUBTEST 3: 
6523 : 
6328 s SUBTEST DESCRIPTION: 
8 
6526 : This subtest verifies the ability of the FIFO to correctly 
6527 3 goes ae multiple date bytes from | t to output. 
6528 3 he following sequence is done with verious dete patterns 
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SEQ 0155 
' TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


6529 3 end byte counts from 2 to 64. 
6530 3 1. Initiel FIFO status is checked 
6531 3 2. The Write FIFO function. , i 
6532 : 3. Reed Status is executed end FIFO stetus is checked. 
6533 3 4. Reed FIFO is executed and the date and finel stetus j 
6534 ' is checked. 
6535 $ 
6536 3s TEST STEPS: 
6537 8 
6538 : BEGIN 
6539 3 Write ut? TSSR to soft initielize 
6540 : Do ea WRITE CHARACTERISTICS to setup e message buffer 
6541 ’ Do ea Write Subsystem READ STAT 
6542 ’ If Input Ready NOT*1 Then Print Error 
6543 $ If Ready NOT=0 Then Print Error 
6544 ’ If Date In Miss De Then he eee 
6545 : If Lest Word NOT= Then Print Erro 
6546 s REPEAT FOR DATA O TO 377 377 pa 9. FLOATING. 1‘'S.0'S AND ALL 1'S/0'S 
6547 ; REPEAT FOR BYTE COUNT 2 fo CIMAL 
6548 3 BEGIN 
6549 3 Do e Write Subsystem WRITE NPR to set tape direction out 
6550 3 e Write ystem WRITE FIFO 
6551 3 Do a Write Subsystem READ STATUS 
6552 3 Input Re NOT=1 hen Print Error 
6553 ; If Output Reedy NOT*1 Then Print Error 
6554 3 If Dete In Miss NOT*=0 Then Print Error 
6555 ; If Lest Word NOT=O0 = Then Print Error 
6556 3 Do Write Subs ong READ FIFO 
6357 : If Dete read FIFO NOT= to Dete sent Then Print Error 
6558 3 Do e Write Suboyeten READ STATUS 
6559 3 If Input Ready NOT= Then Print Error 
6560 3 If Output Ready NOT*=O Then Print Error 
6561 3 If Date In Miss NOT=0 Then Print Error 
6562 3 If Lest Word NOT=0 = Then Print Error 
6563 ’ ENO 
ens 3; ENO 
gee 
6566 041454 BGNSUB s4//4/4441//4/ BEGIN SUBTEST ////////747 
041454 76.3: 
enc? 041454 104402 TRAP Cs6SuB 
6568 k Write to TSSR register to soft inicialize the controller 
6569 041456 $: 
6570 041456 004737 015774 JSR PC, SOF INIT ta | TO TSSR TO aor INITIALIZE 
6571 041462 103405 ecs 10% IF SOFT INIT OKAY 
6572 041464 010001 MOV RO,R1 iSAVE CONTENTS OF TSSR 
6573 041466 ERROF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
041466 104455 8 TRAP CSEROF 
041470 001146 . WORD 
041472 0036 -WORD SFIERR 
041474 012034 - WORD 
6574 r Do e wry TRMAACTERISTICS to cote 2 buffer 
6575 041476 005037 002222 10%: CLR’ TFLG EAR FAT "FATAL ERROR ERROR FLAG 
6576 041502 012704 047550 MOV OTITPACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 
6577 041506 004737 010662 JSR PC, .WRTCHR :00 WRITE CHARACTERISTICS COMMAND 
6578 041512 FORCERROR Aas S80F ORCE FORCER=1 
6579 041526 103407 ecs 508% ;6R IF CARRY SET (GOOD RETURN) 








| 

| 

| 
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TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


| 
| 
6580 041530 010001 Mov RO,.R1 sSAVE CONTENTS OF TSSR | 
658 eeiss3 NEXT. 
Sea 42¢: ERROF ERRNO,T17SSR.PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSEROF 
oai33e 001147 .WORD 615 
046175 [WORD T17SSR 
041540 012046 ; PKTSSR 
6583 041 005237 002222 INC FATFLG :SET FATAL ERROR FLAG | 
6584 041 S08: CKLOOP sLOOP ON ERROR, IF FLAG SET 
041546 104406 : TRAP =—s-« CSCLP1 
6585 ’ Do e Write Spexetes READ STATUS 
6586 041550 004737 047334 PC. 117 sSETUP PACKET FOR READ STATUS 
6587 061554 012704 047720 MOV OTi7PK2 RE :GET WRITE SUBSYSTEM COMMAND PACKET 
6588 041560 010465 000000 MOV R4, TSOBCRS) sSET PACKET ADORESS TO EXECUTE 
6589 041564 004737 016336 JSR PC. CHKTSSR sWAIT FOR SSR TO SET 
6590 041570 FORCERROR 62¢ jes ORCE ERROR IF FORCER=1 
6591 041604 103407 ecs 708 :8R IF CARRY SET (GOOD RETURN) 
6592 041606 010001 mov RO.R1 sSAVE CONTENTS OF TSSR 
6594 041610 62%: ERROF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041610 104455 TRAP CSERDF 
041612 0011 .WORD 616 
041614 046276 -WORD T173SSR 
041616 012046 [WORD  PKTSSR 
6595 041620 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
6596 041624 70%:  CKLOOP sLOOP ON ERROR, IF FLAG SET 
041624 104406 TRAP —s- CSCLP1 
6597 F Set WORDS 0-7 of e sessege buffer = to recy since not testing 
6598 041626 004737 047516 JSR PC, TI7SETE sSET WORDS 0-7 EXPD=RECV 
6599 041 012701 045 HOV @TI7EXSTA,R1 iGET EXPECTED READ STATUS 
6600 041636 012702 047612 MOV @T2 78FSTA.R2 :GET RECV READ STATUS 
6601 041642 012221 HOV (R2)+, (R136 sSET EXPD WORD @6 = RECV TEMP 
6608 041644 O11 ii MOV cr2), (Ri) sSET EXPD WORD 69 = RECV TEMP 
041646 11 000020 eIs @S2. INRDY,(R1) sSET EXP INPUT READY: 1 
6604 041652 042711 000040 eIc @52. OUTRDY , (Ri) sSET EXP OUTPUT READY= 
6605 041656 042711 000200 gic @52.0IM, (Ri) SET EXP DATA IN MISS = 
6606 041662 0462711 000100 gic @52.ILW.(R1) SET EXP LAST WORD tLw)s0 f 
660 ; If Input Ready NOT=1 then Print Error f 
6608 3 If Reedy NOT*0 or Dete in Mies NOT=0 Then Print Error 
6609 3 Ie cu word NOT*O =: Then Print Error 
6610 041666 CLR RO : RECV ADORESS FOR CKMSG2 
6611 041670 012701 047572 Mov OT178FR,R1 sLOW RECV ADORESS FOR CKMSG2 
6612 041674 012 045732 HOV OT17EXP.R2 : $s 
6613 041700 012 000024 HOV €20..R3 sMUMBER OF BYTES TO COMPARE 
6614 041704 004737 011500 JSR PC. CKNSG2 sEXPO EQUAL RECV? 
6615 041710 F ORCERROR 62¢ .NOTSSR 3880 
6616 041 103404 ecs 908 i0R IF YES 
6617 061722 NEXT . ERRNO 
6618 041 62%:  ERRHRD ERRNO.TI7ICNP.MSGSTAT  ;REPORT ERROR 
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95%: 


1008: 


1028: 


REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 
TSTFLAG #1 cee INCREMENT TEST PATTERN 

#2 FOR DECREMENT TEST PATTERN 
#3 FOR TSTBLK TABLE PATTER 


SEQ 0157 


sTEST PATTERN FLAG 
sGET FIRST BYTE COUNT 


Do a Write pA af + WRITE NPR to set t direction out 
@NP .OUT,RO 


MOV 01, TSTFLAG 

MOV 2, COUNT 
MOV 

JSR PC, T17SNPR 

MOV OTi7PK2,R4 
MOV R4, TSOBCRS) 
JSR *CHKTSSR 
FORC 10. 
acs 

MOV ‘ 

NEXT. ERRNO 

ERRDF ERRNO,1174SSR,PKTSSR 
INC FATFLG 
CKLOOP 

Do a Write Svey eter WRITE FIFO 
JSR PC, T17CLEXP 
MOV OTL 7WFDATA,R1 
MOV COUNT ,R2 
CMP $1, TSTFLAG 
BNE 1158 

CLR RO 

MOVB RO, (R1)> 
INC RO 

DEC R2 

BGT 110$ 

CMP 62, TSTFLAG 
BNE 1258 

MOV @377,RO 
MOVB RO,(R1)>+ 
DEC RO 

DEC R2 

BGT 1208 

CMP 03, TSTFLAG 

BNE 1353 

MOV @TSTBLK,RO 
MOVE (RO)+,(R1)> 

DEC R2 

BGT 1308 

MOV COUNT ,RO 

MOV 6T17WEDATA,R1 
JSR PC, T17WFIF 

MOV @Ti7PK2,R4 

MOV R4, TSOB(RS) 





sWAIT FOR SSR TO 

3 BOF ORC RROR IF FORCER=1 
:6R IF CARRY SET (GOOD RETURN) 
+SAVE CONTENTS OF TSSR 


s;DEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 618 
-WORD 1174SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG +I. 
TRAP CsCLP1 


;CLEAR EXPD BUFFER 

sEXPD WRITE FIFO DATA BUFFER 

sTEST PATTERN SIZ 

s INCREMENT PATTERN THIS TIME THRU? 
BR IF NO 

s INCREMENT TEST PATTERN 

sSTORE INCREMENT TEST BYTE 

<7 NEXT PATTERN 

; 


s8R IF NO 
:DECREMENT PATTERN THIS TIME THRU? 


i DECREMENT TEST PATTERN 
;STORE DECREMENT TEST BYTE 
;SET NEXT PATTERN 

3;DONE? 


:8R IF NO 
: TSTBLK PATTERNS THIS TIME THRU? 


F NO 
FLOAT 2" $/0‘S ETC. TEST TABLE 
sSTORE A TSTBLK BYTE 
DONE ? 


3 
;BR IF NO 


sFIFO BYTE COUNT 

sFIFO WRITE DATA ADDRESS 

sSETUP T17PK2 FOR WRITE FIFO 

;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
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SEQ 0158 
TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 

6674 042162 004737 016336 JSR PC ,.CHKTSSR ;WAIT FOR SSR TO SET 

6675 042166 FORCERROR 1428 ;@880F ORCE ERROR alt FORCER=1 

6676 042202 103407 Bcs 1503 ;BR IF CARRY SET (GOOD RETURN) 

6677 042204 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 

6678 042206 NEXT .ERRNO 

6679 042206 1428: ERRDF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
042206 104455 TRAP CSEROF 
042210 001153 -WORDB 619 
042212 046406 — T175SSR 
042214 012046 PKTSSR 

6680 042216 005237 002222 INC FATFLG sSET FATAL ERROR F 

6681 042222 1508: CKLOOP sLOOP ON ERROR, IF FLAG =. 
042222 104406 CsCLPi 

6683 8 Do e Write Subsystem READ STATUS 

66864 042224 004737 047334 JSR PC.T17SRD ;SETUP PACKET FOR READ STATUS 

6685 042230 012704 047720 MoV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

6686 042234 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

6687 042240 C04737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

6688 042244 FORCERROR 157% ;@@0FORCE ERROR IF FORCER=1 

6689 042260 103407 Bcs 1608 :6R IF CARRY SET (GOOD RETURN) 

6690 042262 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6691 042264 NEXT . ERRNO 

6692 042264 1578: ERRDF ERRNO,T173SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
042264 104455 TRAP CSEROF 
042266 001154 -WORD 620 
042270 046276 — T173SSR 
042272 012046 PKTSSR 

6693 042274 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

6694 042309 1608: CKL90P ;LOOP ON ERROR, IF FLAG SET 

ests 042300 104406 TRAP CsCLPi 

6696 F Set WORDS 0-7 of ose message buffer = to wate since not testing 

6697 042302 004737 047516 JSR PC, TI7SETEX ;SET WORDS 0-7 EXPD=RECV 

6696 042306 012701 045752 MOV @TI7EXSTA,R1 ;GET EXPECTED wo STATUS 

6699 042312 012702 047612 MOV OT17BFSTA.R2 ;GET RECV READ } Tus 

6700 042316 012221 MOV (R2)¢,CR1)> ;SET EXPD WORD @6 = RECV TEMP 

6701 042320 011211 MOV (R2).¢R1) ;SET EXPD WORD @9 = RECV TEMP 

6702 042322 052711 000020 BIS @S2.INRDY,(R1) ;SET EXP INPUT READY" 1 

6703 042 052711 000040 BIS @S2.OUTRDY,(R1) ;SET EXP OUTPUT READY= 1 

6704 042332 042711 000200 BIC @S2.D0IM,(R1) ;SET EXP DATA IN MISS = O 

6705 042336 042711 000100 BIC @S2.ILwW,(R1) ;SET EXP LAST WORD (ILW)=0 

6706 3 If Input Ready NOT=1 then Print borer 

6707 3 If grout Ready NOT=1 or Date in aan NOT=0 Then Print Error 

6708 042342 005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 

6709 042344 012701 047572 MOV @T17BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 

6710 042350 012702 045732 MOV OT17EXP.R2 ;EXPD ADDRESS 

6711 042354 012703 0v0024 MOV #20. ,.R3 ;NUMBER OF BYTES TO COMPARE 

6712 042360 004737 011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

6713 042364 FORCERROR 162% ,NOTSSR 3 3ad 

6714 042374 103404 6cs 1708 ;6R IF YES 

6715 042376 NEXT . ERRNO 

6716 042376 162$: ERRHRD ERRNO,T173CMP,.MSGSTAT sREPORT ERROR 
042376 1044 TRAP CSERHRD 

001155 . WORD 1 

042402 73 -WORD 11735CMP 
042404 012350 -WORD MSGSTAT 





a ee ee + + 


TSVS - HARDWARE TESTS 


6717 042406 
042406 104406 


a 
~ 
~ 


042542 104406 





MACRO YOS.02 Monday 16-Sep-85 10:39 Page 84-12 
TEST 6: SUBTEST $3: FIFO WRITE MULTIPLE BYTES TEST 


002222 


047334 
047720 
000000 


016336 


002222 


1708: 


1728: 


1928: 


212%: 


2208: 


CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 


Do Write Subsystem READ FIFO 
MOV COUNT ;SET READ BYTE COUNT 


JSR PC, TL7RF IF SETUP T17PK2 FOR READ FIFO 

MOV @Ti7PK2,R4 :GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) iSET THE PACKET ADORESS TO EXECUTE 
JSR PC. CHKTSSR WAIT FOR SSR TO SET 

FORCERROR 1728 s@@OFORCE ERROR IF FORCER=1 
Bcs 1608 ;@R IF CARRY SET (GOOD RETURN) 

MOV RO,R1 }SAVE CONTENTS OF TSSR 

NEXT 


ERRNO, T176SSR,PKTSSR sDEVICE FATAL SSR vomeD Te a 
-WORD 62 
-WORD 1176SSR 
-WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG a 


- . Dete read from FIFO NOT= to Dete sent Then Print Error 
CLR RO HIGH 


MOV @T1L7WFDATA,R2 

MOV @T17BFSTA,RI or RECEIVED ADDRESS FOR CKMSG2 
MOV COUNT RS ER OF BYTES TO C 

JSR »CKMSG2 ;EXPD EQUAL RECV? 

FORCERROR 192$ ,.NOTSSR ;a@a0 

Bcs 2008 7BR IF YES 


MOV COUNT ,R1 ;GET BYTE COUNT 

ERRHRD ERRNO, T17SCMP,.FIFEXP sREPORT ERROR 
TRAP CSERHRD 
WORD 623 


-WORD  T17SCMP 

-WORD FIFEXP 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do ea Write Subsystem READ STATUS 

JSR PC, SRD sSETUP PACKET FOR READ STATUS 

MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 


JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 212% ;@@0FORCE ERROR IF FORCEK=1 
BcsS 220% sBR IF CARRY SET ( RETURN) 
MOV RO,R1 ; SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRNO, T173SSR,.PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
624 
WORD 1173SSR 
-WORD PKTSSR 
INC FATFLG ty FATAL ERROR FLAG 
CKLOOP LOOP ON ERROR, IF FLAG +r. escup, 


SEQ 0159 
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TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


002310 
002310 


041750 
002314 
002314 


041742 


002222 
017202 


000077 


2328: 


2408: 


2508: 


2558: 


260%: 


JSR PC, TI7SETEX 
MOV @TI7EXSTA,R1 
MOV OT17BFSTA.R2 
MOV (R2)+,(R13+ 
MOV «R2),CR1) 
BIS @S2. INRDY,(R1) 
BIC @S2. OUTROY, (Ri) 
BIC @S2.DIM, ( 

IC @S2.ILW.(R1) 


8 
If Input Ready 


3SE 
NOT#1 then Print brrer 


Set WORDS 0-7 of = message eat + 4 = to recv since not testing 


WORDS 0-7 EXPD=RECV 
iGET EXPECTED wer! STATUS 
sGET RECV READ STATUS 
sSET EXPD WORD rH RECV TEMP 
EXPD WORD #9 = RECV TEMP 

sSET EXP INPUT READY= 1 
sSET EXP OUTPUT READY= 0 
sSET EXP DATA IN MISS = 0 

T EXP LAST WORD CILW)=0 


If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
CLR R HI FOR CKMSG2 


MOV @T17BFR,R1 

MOV @T1I7EXP ,R2 

MOV #20. ,R3 

JSR PC, CKMSG2 

FORCERROR 232% ,NOTSSR 
Bcs 24 


NEXT .ERRNO 
ERRHRD ERRNO,T174CMP ,MSGSTAT 


CKLOOP 

FORCEXIT 250$ 
INC c 

CMP COUNT , #77 
BHI 250% 

JMP 100% 

INC TSTFLAG 
CMP TSTFLAG, @3 
BHI 255% 

JMP 95% 

ENDSUB 

TST F } An 

BEQ 2603 

JSR PC ,CKDROP 


GH RECV ADDRESS 
;LOM RECV ADDRESS FOR CKMSG2 


ADORESS 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


; 880 
;8R IF YES 
sREPORT ERROR 


TRAP CSERHRD 

-WORD 625 

-WORD - 1174CMP 

-WORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 


;@aD0 

;GET NEXT BYTE COUNT 

;DONE O TO 77 

3;8R IF YES 

300 ANOTHER BYTE COUNT 

;GET NEXT TEST PATTERN CODE 
;DONE INC,.DEC,TSTBLK PATTERNS? 
:;B8R IF YES 

300 ANOTHER TEST PATTERN 


s4//4414//1//4 END SUBTEST S////////7/ 
L10061: 
TRAP CsESuUB 
sANY FATAL = ? 


;BRANCH IF NO 
sTRY TO DROP THE UNIT 


-SBTTL TEST 6: SUBTEST 4: FIFO Verify ILW Status 


zee 
; TEST 6: SUBTEST 4: 


SUBTEST DESCRIPTION: 


This subtest verifies that reading the FIFO when it is 


empty causes the Last Word (ILW) status to assert. 


SE@ 0160 


ee - — 
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SEQ 0161 
TEST 6: SUBTEST 4: FIFO Verify ILW Status 
$ 
6809 : TEST STEPS: 
6810 3 
6611 ; BEGIN 
6812 3 Write to TSSR to soft initialize | 
6815 ; _ Write Subsystem READ ot a byte count equal to 1 
6814 3 Do a Write Subsysten READ STATUS 
| 68615 3 If Input Ready NOT=1 vnen Aprint Error 
6816 3 If Output Ready NOT*O Then Print Error 
6817 3 If Date In Miss NOT=0 Then Print Error 
6818 3 If Lest Word (CILW) NOT*1 Then Print Error 
6819 ’ END 
6820 g = 
6621 043014 BGNSUB 34//////////// BEGIN SUBTEST ////////7/7/ 
043014 76.4: 
2 043014 104402 TRAP Cs6SU8 
6823 i Write to TSSR register to soft initialize the controller 
6824 043016 $: 
6825 043016 004737 015774 JSR PC,SOFINIT ;WRITE TO TSSR TO Ly oy INITIALIZE 
6826 043022 103405 BCS 10$ ;B8R IF SOFT INIT OKAY 
6827 043024 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6828 043026 ERROF ERRNO, SFIERR, SFIMSG ;DEVICE FATAL DURING INIT 
043026 1044 TRAP CSERDF 
043030 001161 -WORD 625 
043032 003652 -WORD SFIERR 
043034 012034 -WORD SFIMSG 
6829 3 Do a setae | a CTNEETES to setup a buffer 
6830 043036 005037 002222 108: CLR TCLEAR FAT ERROR FLAG 
6831 043042 012704 047550 MOV OTLTPACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 
6832 043046 004737 010662 JSR PC, ,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
6833 043052 FORCERROR 42% eco eas ERROR IF FORCER=1 
6834 043066 103407 BCS 50% ;6R IF CARRY SET (GOOD RETURN) 
6835 043070 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6836 043072 NEXT .ERRNO 
6837 043072 42%: ERROF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043072 104455 TRAP CSERDF 
043074 001162 -WORD 626 
043076 046175 -WORD 1T17SSR 
043100 012046 -WORD PKTSSR 
6838 043102 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6839 043106 508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
043106 104406 TRAP CSCLPi 
6841 3 2 Write pai READ FIFO with norte count equal to 1 
6842 043110 012700 000001 READ BYTE CO COUNT 
6843 043114 004737 047456 non PC. T17RFIF ; SETUP T17PK2 FOR READ FIFO 
6844 043120 012704 047720 MOV @Ti7PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
6845 043124 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
6846 043130 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO yh 
6847 043134 FORCERROR 142$ s8@0FORCE ERROR IF FORCER=1 
6848 043150 10:07 BcSs 1503 ;BR IF CARRY SET (GOOD RETURN) 
6849 043152 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6850 043154 NEXT .E 
6851 043154 1428: ERROF ERRNO,T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043154 104455 TRAP CSEROF 
043156 001163 - WORD 627 
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046452 

012046 

005237 002222 

3 043170 1508: 


047334 
047720 
000000 


016336 


162%: 


172$: 


160%: 
6890 
68691 


6892 


6893 043360 005737 002222 
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INC FATFLG 
CKLOOP 


Oe Urice e.Fi7sko READ STATUS 


JS 

MOV ATE Ey 
MOV Ra TSbBCRS) 
JSR PC; CHKTSSR 
FORC 

BCS 70% 

MOV 0,R1 

NEXT. ERRNO 

ERROF ERRNO,T173SSR,°KTSSR 
INC FATFLG 
CKLOOP 


Set WORDS 0-7 of ex message buffer 
R xp? ” 3SE 


SEQ 0162 
-WORD 1176SSR 
-WORD PKTSSR 
;SET FATAL ERROR FLAG 
iLOOP ON ei IF FLAG : 
TRAP CSCLP1 
sSETUP PACKET FOR READ ALL 
sGET WRITE SUBSYSTEM COMMAND PACKET 
TO EXECUTE 


iSET THE PACKET 
OR SSR T 


ADORESS 
sWAIT F 0 


:BR 
;SAVE CONTENTS OF T 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG a 


JS PC, TI7SETEX T WORDS 0-7 EXPD=RECV 
MOV OTI7EXSTA,R1 ;GET EXPECTED READ STATUS 
MOV OT17BFSTA,R2 ;GET RECV READ STATUS 
MOV 2)+,(R13+ ;SET EXPD WORD 88 = RECV TEMP 
MOV (R2),(R1) :SET EXPD WORD @9 = RECV TEMP 
BIS @S2.INRDY,(R1) ;SET EXP INPUT READY= 1 
BIC @S2.OUTRDY, (R1) 3SET EXP OUTPUT READY= 0 
BIC @52.0IM, (Ri) ;SET EXP DATA IN MISS = 0 
BIS @52.ILW.CRL) SET EXP LAST WORD CILW)=1 
If Input Reedy NOT=1 then Print trror 
If Sens Date in Miss NOT=0 Then Print Error 


Bey 5 Be ye or 


A a Lest ' Word CILW) NOT=1 Then Pr 


CLR RO 
MOV @T17BFR,R1 
MOV @T17EXP,R2 
MOV #20. ,R3 

SR PC ,.CKMSG2 
FORCERROR 172$,NOTSSR 
BcS 18 


NEXT .ERRNO 

ERRHRD ERRNO,T176CMP,MSGSTAT 
CKLOOP 

ENDSUB 


TST FATFLG 


int Error 

sHIGH RECV ADDRESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPC ADDRESS 

sNUMBER OF errs TO COMPARE 
sEXPO EQUAL RECV? 

iBR IF YES 


sREPORT ERROR 
TRAP 
- WORD 
- WORD 
. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP 


SET 
s;@8O0FORCE ERROR IF FORCER=1 
IF CARRY SET «e008 RETURN) 


ee a cee 


CsCLP1 


= to recv since not testing 


LSERHRD 


629 
T176CMP 
MSGSTAT 


CsCLPi 


s4/4/1/11117/7 END SUBTEST ////////4/ 
L10062: 


” TRAP 


sANY FATAL ERRORS ? 


CsESuB 
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6894 043364 001402 


6895 043366 004737 017202 


6896 
6897 
6898 


043372 
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015774 


SEQ 0163 


BEQ 260% sBRANCH IF NOT 
2608 JSR PC ,CKDROP sTRY TO DROP THE UNIT 


-SBTTL TEST 6: SUBTEST S: FIFO Verify Input Ready 


¢ 
; TEST 6: SUBTEST 5S: 
SUBTEST DESCRIPTION: 


This subtest verifies that writing 64. bytes into the FIFO 
without roading oe out causes the Input Ready status to 
negate. The Subtest then verfiies that writi a 65th byte 
into the FIFO causes the Date In Miss status to assert. 
Next it is verified that the original 64 bytes can be read 
out correctly and that the data has not been corrupted. 


TEST STEPS: 


BEGIN 
Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a Gesstep buffer 
Do a Write Subsystem WRITE NPR to set tape direction out 
Do a Write Subsystem WRITE FIFO 64. bytes incrementing pattern 
ea Write Subsystem READ STATUS 
If Input Ready NOT=O0 Then Print Error 
If Output Ready NOT=1 Then Print Error 
If Date In Miss NOT=0 Then Print Error 
Do a Write Subsystem WRITE FIFO 1 byte for a total of 65. written 
Do a Write Subsystem READ STATUS 
If Input Ready NOT=O0 Then Print Error 
If Output Ready NOT=1 Then Print Error 
If Data In Miss NOT=1 Then Print Error 
Do Write smoyoten READ FIFO 
If Date read from FIFO NOT= to Date sent Then Print Error 
Do a Write Subsystem READ STATUS 
If Input Ready NOT=1 Then Print Error 
If Output Ready NOT=0 Then Print Error 
If Data In Miss NOT=1 #£Then Print Error 


S 


END 
ie BGNSUB SAIIUUIIITI11 BEGIN. SUBTEST /////01177 
ae csB8SUB 
i, Write to TSSR register to soft initialize the controller 
; JSR PC,SOFINIT s;WRITE TO TSSR TO SOFT INITIALIZE 
BCS 10$ ;8R IF SOFT INIT OKAY 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERROF ERRNO,SFIERR,SFIMSG s;DEVICE FATAL DURING INIT 
TRAP CSERDF 
. WORD 629 
-WORD SFIERR 


-WORD SFIMSG 
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6945 3 Do a wan CHARACTERISTICS to meyeter e@ mess buff. 

6946 043414 005037 002222 10%: CLR’ FATFL AR FATAL ERROR *FLAG 

6947 043420 012704 047550 MOV OTL 7PACKET, R4 GET THE ADDRESS OF COMMAND PACKET 

6948 043424 004737 010662 JSR PC,.WRTCHR ;00 WRITE CHARACTERISTICS COMMAND 

6949 043430 FORCERROR 42% ;@8@DFORCE ERROR IF FORCER=1 

6950 043444 103407 BCS 50% ;BR IF CARRY SET (GOOD RETURN) 

6951 043446 010001 MOV RO,.R1 sSAVE CONTENTS OF TSSR 

6952 043450 NEXT .ERR 

6953 043450 42$: ERRDF ERRNO,T17SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
043450 104455 TRAP CsEROF 
043452 001166 -WORD 630 
043454 046175 -WORD 1T17SSR 
043456 012046 -WORD PKTSSR 

6954 043460 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 

6955 043464 50%: CKLOOP sLOOP ON ERROR, IF FLAG SET 

° 043464 104406 TRAP CSCLP1 

6957 3 Do a Write Subsystem WRITE NPR to set t direction out 

6958 043466 C12700 000100 100$: MOV @NP .OUT,RO :SET TAPE DIRECTION OUT 

6959 043472 004737 047376 JSR PC,T17SNPR ;SETUP T17PK2 FOR WRITE NPR 

6960 043476 012704 047720 MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

6961 043502 010465 000000 MOV R4,TSDBCRS) sSET THE PACKET ADORESS TO EXECUTE 

6962 043506 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

6963 043512 FORCERROR 102$ s880FORCE ERROR IF FORCER=1 

6964 043526 103407 BCS 105% :BR IF CARRY Y SET (GOOD RETURN) 

6965 043530 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6966 043532 - NEXT.ER 

6967 043532 1028: ERROF ERRNO,1T174SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
043532 104455 TRAP CSEROF 
043534 001167 -WORD 631 
043536 046343 -WORD 1174SSR 
043540 012046 -WORD PKTSSR 

6968 043542 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

6969 043546 105$: CKLOOP sLOOP ON ERROR, IF FLAG SET 

gore 043546 104406 TRAP CSCLP1 

6971 ; Do a Write Subsystem WRITE FIFO 64. bytes incrementing pattern 

6972 043550 012737 000100 002310 MOV 64. ,COUNT sWRITE 64 BYTE 

6973 043556 012701 046054 MOV OT17UFDATA, R1 sEXPC WRITE FIFO DATA BUFFER 

6974 043562 012702 000100 MOV 064. ,R2 3s TEST or SIZE 

6975 043566 005000 CLR RO sINCREMENT TEST PATTERN 

6976 043570 110021 1108: MOVE RO,CR1)+ sSTORE INCREMENT TEST BYTE 

6977 043572 005200 INC RO 3SET NEXT PATTERN 

6978 043574 005302 DEC Re 3sDONE? 

6979 043576 003374 BGT 110$ :8R IF NO 

6980 043600 013700 002310 MOV COUNT ,RO 3sFIFO BYTE COUNT 

6981 043604 012701 046054 MOV @TL7WFDATA,R1i 3sFIFO WRITE DATA ADDRESS 

6982 043610 004737 047422 JSR PC, TI 7WFIF sSETUP T17PK2 FOR WRIT 

6983 043614 012704 047720 MOV @Ti7PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

6984 043620 010465 000000 MOV R4,TSDBCRS) sSET THE PACKET ADORESS TO EXECUTE 

6985 043624 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

6986 043630 FORCERROR 1423 oot ERROR IF FORCER=1 

6987 043644 103407 Bcs 150$ ;6R IF CARRY T (GOOD RETURN) 

6988 043646 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

6989 043650 NEXT .E 

990 043650 1428; ERRDF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 


043650 104455 TRAP CSEROF 
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043652 001170 
046406 


. 043656 012046 
6991 043660 005237 


043664 104406 


rs 
& 
Ps 


7031 044046 012700 
7032 044052 012701 
7033 044056 004737 
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002222 


047334 
047720 
000000 


016336 


000001 
046054 
047422 


1578: 


162$: 


INC FATFLG 
CKLOOP 


Do ea Write Subsystem READ STATUS 

If Input Ready NOT*O Then Print Error 
If Output Ready NOT=1 Then Print Error 
—- In Mise ~ Then Print Error 


J PC, 
FORCERROR 

BcS 160 
ae RO,R1 


NEXT .ERRNO 
ERROF ERRNO,T173SSR,PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 0165 
-WORD 632 
-WORD T175SSR 
-WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG 1 
CsCLP1 


sSETUP PACKET FOR READ STATUS 
:GET et Se SUBSYSTEM COMMAND PACKET 
sSET THE P py aa SS TO EXECUTE 


sWAIT FOR SSR T 

oront E ERROR IF FORCER=1 
sBR IF C SET (GOOO RETURN) 
i SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 633 
-WORD 1173SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Set WORDS 0-7 of expd mess buffer = to wgty since not testi 
JSR enn “e 


PC, TI7SETEX 
MOV @TI7EXSTA,R1 
MOV @T1L7BFSTA,R2 
MOV ensa tant ° 


MOV CR2),CR1 

BIC @S2.INRDY,CR1) 
BIS @S2.OUTROY.(R1) 
BIC @S2.DIM, (Ri) 
CLR RO 


MOV @T17BFR,R1 
MOV @T17EXP ,R2 
20. ,.R3 


SR PC, CKMSG2 
FORCERROR Kee 162$ ,NOTSSR 


T. ERRNO 
ERRHRD ERRNO, T173CMP,.MSGSTAT 


CKLOOP 


WORD 7_EXPD=RECV 
sGET EXPECTED READ STATUS 
3GET oat STATUS 


SS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 

sEXPC ADORESS 

sNUMBER OF BYTES TO COMPARE 

sEXPDO EQUAL RECV? 

7880 

iBR IF YES 

sREPORT ERROR 
TRAP LCSERHRD 
.- WORD 634 
-WORD T173CMP 


-WORD MSGSTAT 
sLOOP ON ERROR, IF FLAG SET 
TRAP CscLPi 


Do a Write Swoyetes WRITE FIFO 1 byte for a totel of 65. written 
#1,R0 COUNT 


MOV 
MOV OTI7WFDATA,R1 
JSR PC, Ti 7WFIF 


sFIFO BYTE 


sFIFO WRITE DATA ADDRESS 
sSETUP T17PK2 FOR WRITE FIFO 
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| 047720 
000000 
| 72036 oaao72 016336 
| 7 084076 
1728: 


002222 
1808: 


047334 
047720 


000000 
016336 


187%: 


1928: 
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SEQ 0166 

MOV @T17PK2 ,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
JSR C.CHKTSSR sWAIT FOR SSR TO SET 
FORCE 172% s@80FORCE ERROR IF FORCER=1 
6CcS 1808 3B8R IF CARRY SET (GOOD RETURN) 
+ RO,R1 ; SAVE CONTENTS OF TSSR 
ERROF ERRNO,T17SSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

TRAP CSEROF 

. 635 

° T175SSR 

PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKL 3LOOP ON ERROR, IF FLAG =. 
CSCLPi 

Do e Write Subsystem READ STATUS 
If Input Ready NOT*O Then Print Error 
If Output Ready NOT=1 Then Print Error 
If Date In Miss NOT=1 Then Print Error 
JSR T17SRD sSETUP PACKET FOR READ STATUS 
MOV @T17PK2 ,.R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
JSR »CHKTS sWAIT FOR SSR TO SET 
FOR 7$ is CE ERROR IF FORCER=1 
Bcs 190% ;8R IF CARRY SET (GOOD RETURN) 
~ RO,R1 ; SAVE CONTENTS OF TSSR 


. ERRNO 
ERROF ERRNO,T1735SSR,PKTSSR 


sDEVICE FATAL SsR FAILED TO SET 
TRAP 


CSEROF 
636 
T173SSR 
PKTSSR 


CSCLPi 


INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
Set WORDS 0-7 of e message buffer = to recv since not testi 
SSR ee ri rserexP SET WORDS 0-7 EXPD=RECV es 

MOV eTI7EXSTA, Ri ;GET EXPECTED READ STATUS 

MOV @T178FSTA ;GET RECV READ STATUS 

MOV (R2)e erases 3SET EXPD WORD @6 = RECV TEMP 

MOV (R2),¢R1) 3SET EXPD WORD #9 = RECV TEMP 

BIC aS nnoy .CR1) 3SET E READY= 0 

BIS @S2. OUTRDY, (Ri) 3SET READY= 1 

BIS @S2.DIM, (Ri) 3SET EXP DATA IN MISS = 1 

CLR RO sHIGH RECV ADORESS FOR CKMSG2 

MOV @T17BFR,R1 ;LOW RECV ADORESS CKMSG2 

MOV @T17EXP.R2 3EXPD ADORESS 

MOV €20..R3 ;NUMBER OF BYTES TO COMPARE 

JSR PC, CXMSG2 3EXPD EQUAL RECV? 

FORCERROR 192% ,NOTSSR 3880 

Bcs ;8R IF YES 

NEXT. ERRNO 

ERRHRD ERRNO,T173CMP,MSGSTAT  ;REPORT ERROR 
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SEQ 0167 
TEST 6: SUBTEST 5S: FIFO Verify Input Ready 
044310 012350 -WORD MSGSTAT 
7078 044312 2008: CKLOOP sLOOP ON ERROR, IF FLAG SET 
044312 104406 TRAP CSCLPi 
} 7079 3 Do Write Subsystem READ FIFO i 
i 7080 044314 013700 002310 MOV COUNT ,RO 3SET READ BYTE COUNT { 
7081 044320 004737 047456 JSR PC, TI7RF IF sSETUP T17PK2 FOR “~ FIF 
7082 044324 012704 047720 MOV @T17PK2,R4 3;GET WRITE pestsren COMMAND PACKET 
7083 044330 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET = TO EXECUTE 
7084 044334 004737 016336 JSR PC .CHKTSSR sWAIT FOR SSR TO SE 
7085S 044340 FORCERROR 2128 3 880F ORCE ERROR IF FORCER=1 
7086 044354 103407 Bcs 2208 36R IF CARRY SET (GOOD RETURN) 
7087 044356 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
7088 044360 NEXT .ERRNO 
7089 044360 2128: ERROF ERRNO,T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
044360 104455 TRAP CSEROF 
044362 001176 -WORD 638 
044364 046452 — T176SSR 
044366 012046 PKTSSR 
7090 044370 CO05237 002222 INC FATFLG sSET FATAL ERROR FLAG 
7091 044374 2208: CKLOOP sLOOP ON ERROR, IF FLAG SET 
rose 044374 104406 TRAP CSCLPi 
7093 F If Date read from FIFO NOT= to Date sent Then Print Error 
7094 044376 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
.7095 044400 012702 046054 MOV @T17WFDATA,R2 sGET EXPECTED ADORESS FOR CKMSG2 
7096 044404 012701 047612 MOV @T17BFSTA,R1 sGET RECEIVED ADDRESS FOR CKMSG2 
7097 044410 013703 002310 MOV COUNT ,R3 sNUMBER OF BYTES TO COMPARE 
7098 044414 004737 011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV? 
7099 044420 FORCERROR 232% ,NOTSSR 3;880 
0444 103406 Bcs 240% 3;BR IF YES 
7101 044432 NEXT .ERRNO 
7102 044432 013701 002310 232%: MOV COUNT ,R1 ;GET BYTE COUNT 
7103 044436 ERRHRD ERRNO, T175CMP ,FIFEXP sREPORT ERROR 
044436 104456 TRAP CsERHRO 
044440 001177 -WORD 639 
047042 -WORD T17SCMP 
012170 -WORD FIFEXP 
7104 044446 2408: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
705 044446 104406 TRAP CscCLPi 
7106 F Do ea Write Subsystem READ STATUS 
7107 3 If Input Ready NOT*1 # Then Print Error 
7106 Fy If Output Ready NOT*=O Then Print Error 
7109 3 If Dete In Mise NOT*1 Then Print Error 
7110 044450 004737 047334 JSR PC.T17SRO sSETUP PACKET FOR READ STATUS 
7111 044454 012704 047720 MoV @T17PK2,R4 3sGET WRITE SUBSYSTEM COMMAND PACKET 
7112 044460 010465 000000 MOV R4, TSDBCRS) 3SET THE PACKET ADORESS TO EXECUTE 
7113 044464 004737 016336 JSR PC.CHKTSSR sWAIT FOR SSR TO SET 
7114 044470 FORCERROR 252% s@@0FORCE ERROR IF FORCER=1 
7115 044504 103407 6cs 260% :8R IF CARRY SET (GOOD RETURN) 
7116 044506 010001 Mov RO,R1 sSAVE CONTENTS OF TSSR 
7117 044510 NEXT . ERRNO 
7118 044510 252%: ERRDF ERRNO,T173SSR.PKTSSR sDEVICE FATAL SSR FAILED TO SET 
044510 104455 TRAP CSERDF 
044512 001200 -WORD 640 
044514 046276 -WORD 1T173SSR 


7 
044516 012046 -WORD PKTSSR 
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SEQ 0168 
TEST 6: SUBTEST S: FIFO Verify Input Reedy 
| 
| 7119 044520 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
| 7120 044524 2608: CKLOOP 3LOOP ON ERROR, IF FLAG SET 
7121 “ Set WORDS 0-7 of buff t t ye — 
| 3 of e MASSOQES ee Be ue BS A esting 
i vie ports tf 004737 047516 JSR PC, T17SET * sSET WORDS 0-7 EXPD=RECV 
| 7123 0445 012701 045752 MOV @TI7EXSTA,R1 sGET EXPECTED READ STATUS 
7124 044536 012702 047612 MOV @T17BFSTA,R2 sGET RECV READ STATUS 
7125 044542 012221 MOV CR2)o cRL}» sSET EXPD WORD 06 = RECV TEMP 
7126 044544 ou1211 MOV (R2),CR1 3SET EXPD WORD @9 = RECV TEMP 
7127 044546 711 000020 BIS @S2. INRO ae R1) sSET EXP INPUT READY= 1 
71286 044552 042711 000040 BIC @S2.OUTRDY,CR1) sSET EXP OUTPUT READY= 0 
7 044556 052711 000200 BIS @S2.0IM, (Ri 1) T EXP DATA IN MISS = 1 
7130 044562 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
7131 044564 012701 047572 MOV @T17BFR,R1 3sLOW RECV ADORESS FOR CKMSG2 
7132 044570 012702 045732 MOV @T17EXP .R2 sEXPD ADDRESS 
7133 044574 012703 000024 MOV #20. .R3 sNUMBER OF BYTES Bs COMPARE 
7134 044600 004737 011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV? 
7135 044604 FORCERROR 272% ,NOTSSR 3880 
7136 044614 103404 Bcs 280% i8R IF YES 
7137 044616 NEXT .E 
7138 044616 2728: E ERRNO, T174CMP .MSGSTAT sREPORT ERROR 
044616 104456 TRAP CSERHRO 
044620 001201 -WORD 641 
044622 046757 -WORD 1174CHP 
044624 012350 -WORD MSGSTAT 
7139 044626 2808: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
7100 044626 104406 TRAP C8CLPi 
7141 044630 ENOSUB s4/444111/4447 END SUBTEST ////////4/ 
044630 L10063: 
7142 . . TRAP CsESUB 
7143 044632 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
7144 044636 001402 BEQ 300% sBRANCH IF NOT 
7145 044640 004737 017202 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
7146 044644 3008: 
7147 
7149 
vies -SBTTL TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 
7152 300 
ues 3; TEST 6: SUBTEST 6: 
3 
ties : SUBTEST DESCRIPTION: 
3 
7157 3 Thies subtest verifies thet the Reset FIFO function within 
7158 3 the Write Miscelleneous Control 1 function initielizes 
7159 3 the FIFO to correct intiel stetus. The following steps 
7160 3 ere perfo 
7161 3 1. Reset en elready initialized FIFO and check for 
7162 3 roper status. 
7163 3 2. Write e varying number of bytes (1-65. , into the 
7164 : FIFO end and ver thet efter each block of bytes is 
7165 : written the FIFO can be be reset to it's initiel 
7166 3 stete. 
3 
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SEQ 0169 
TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 
7168 s TEST STEPS: 
7169 3 
7170 : BEGIN : 
7171 3 Write to TSSR to soft initielize 
717 : Do e WRITE CHARACTERISTICS to setup e buffer 
717 : Do e ee Saves = ite ones to Reset 0 
7174 ; Do e tem READ STA 
7175 3 If sil” tebe Stetu "2 CICER, irre IHER) flip-flop 
7176 8 signe @ NOT=0 Then Print Error 
vi7? 8 Do e Write Subsystem WRITE NPR to set tape direction out 
3 
7179 s REPEAT FOR BYTE COUNT 1 TO 65. 
71890 3 BEGIN 
7161 3 Do e Write Subsystem WRITE FIFO with the current byte count 
vise 3 _ e Write Subsystes i ise Rt to Reset FIFO 
Ti 3 e Write roots TATUS 
7164 3 °° ell hy Stetus 2 CICER: IFMK,IHER) flip-flop 
7185 3 signele NOT=0 Then Print Error 
rie : 
gee 
7188 044644 BGNSUB 34///14141////4 BEGIN SUBTEST ///////477 
084646 76.6: 
799 044644 104402 TRAP Csesus 
7190 4 Write to TSSR register to soft initielize the controller 
7191 044646 $: 
7192 044646 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO SuFT INITIALIZE 
7193 044652 103405 6cSs 108 3s6R IF SOFT INIT OKAY 
7194 044654 010001 RO,R1 sSAVE CONTENTS OF TSSR 
7195 044656 E ERRNO. SFIERR , SFIMSG sDEVICE FATAL DURING INIT 
044656 104455 TRAP CsEROF 
044660 001201 -WORD 641 
oaaees 012034 WORD SF inse 
71 3 Oo ae warre CHARACTERISTICS to wrth buffer 
7197 044666 005037 002222 108: CLR FATFLG EAR FATAL ERROR FLAG 
7198 044672 012704 047550 MOV @T1L7PACKET .R4 T THE ADORESS OF COPPA PACKET 
7199 044676 004737 010662 JSR PC .WRTICHR ‘50 WRITE CHARACTERISTICS Corse 
7200 044702 F got rT. SSDFORCE ERROR FORCER=1 
7201 044716 103407 ecs 508 36R IF CARRY SET (S009 ) 
yees 044720 010001 + RO.R1 sSAVE CONTENTS OF TSSR 
7204 044722 42%: ERROF ERRNO, T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
044722 pocess TRAP c 
044726 0461 -WORD ii 
7205 044732 37 Ov2222 FATFLG sSET FATAL ERROR FLAG 
7206 044736 508: ace sLOOP ON ERROR, IF FLAG SET 
644 LORLGG Tele Cecu Pi 


e Wri Write Miec te Reset FIFO 
FOR 





INC 
CKL 

Do 
044740 0046737 047354 JSR 
Tae mov 
nov 
JSR 
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044776 
04 


010001 
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MOV RO,R1 
T.ERR 


;SAVE CONTENTS OF TSSR” 


NEXT .E a 
6>%: ERRDF ERRNO,T172SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 643 
«WORD 1T172SSR 
-WORD PKTSSR 
002222 INC FATFLG sSET FATAL ERROR FLAG 
708: CKLOOP sLOOP ON ERROR, IF FLAG sr. 
CSCLP1 
3 Do a Write Subsystem READ STATUS 
’ If all Tape Stetus 2 CICER, IFMK,IHER) flip-flop 
’ signels NOT=0 Then Print Error 
047334 JSR PC,T17SRO ;SETUP PACKET FOR READ STATUS 
047720 MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC ,.CHKTSSR sWAIT FOR SSR TO a 
FORCERROR 77 s@880FORCE ERROR IF FORCER=1 
Bcs 80% :;6R IF CARRY SET (000 RETURN) 
nant e Sina sSAVE CONTENTS OF TSSR 
778: ERROF ERRNO,1T173SzAR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CsERDF 
-WORD 644 
-WORD T173SSR 
-WORD PKTSSR 
002222 FATFLG ;SET FATAL ERROR FLAG 
808: CKLOOP ;LOCP ON ERROR, IF FLAG Ae coum 
047516 JSR PC. T1L7SETEXP ;SET WORDS 0-7 EXPD-RECY CNOT TESTING) 
045752 MOV @TI7EXSTA,R1 ;GET EXPECTED READ STA 
047612 MOV @T17BFSTA,R2 ;GET RECV READ STA 
MOV CR2),(R1) sSET EXPD WORD #6 = RECV TEMP 
2000 BIC @S1.ICER,CR1) sSET EXPD ICER = 
001000 BIC @S1.IFMK,C(R1) ;SET EXPD IFMK =0 
000400 BIC @S1.IHER,(R1) ;SET EXPD IHER aw 
000002 MOV 2(R2),2(R1) sSET EXPD WORD 89 = RECV (NOT TESTING) 
CLR RO ;HIGH RECV ADDRESS FOR CKMSG2 
047572 MOV @T17BFR,R1 ;LOW RECV ADDRESS FOR CK 
045732 MOV @T17EXP ,R2 sEXPD ADDRESS 
000024 MOV #20. ,R3 sNUMBER OF BYTES ~ COMP ARE 
011500 JSR PCc,.Cc sEXPD EQUAL RECV? 
FORCERROR 92% ,NOTSSR 3980 
BCS 1008 ;8R IF YES 
NEXT .ERRNO 
92%: ERRHRD ERRNO,1T177CMP ,MSGSTAT ;REPORT ERROR 
TRAP CSERHRD 
-WORD 645 
-WORD T177CMP 
-WORD MSGSTAT 
1008: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 Do ea Write Subsystem WRITE NPR to set t direction out 
000100 MOV @NP .OUT,RO ;SET T DIRECT ION OUT 
047376 JSR PC,T17SNPR } SETUP T17PK2 FOR WRITE NPR 


SEQ 0170 


<< ————- 
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012701 
c12702 
005000 
110021 
005200 
005302 
003374 


012737 


rc ee ee 


MACRO YOS.02 Monday 16-Sep-85 10:39 Page 84-24 


047720 
000000 
016336 


002222 


045752 
000100 


002222 


047354 
047720 


000000 
016336 


002310 


1128: 


1308: 


SEQ 0171 


MOV @T17PK2,R4 :GET WRITE suasysTen COMMAND PACKET 
MOV R4, TSDBC(RS) ;SET THE PACKET ADORESS TO EXECUTE 
JSR PC. CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 1128 ORCE ERROR IF FORCER=1 
Bcs 120% BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 iSAVE CONTENTS OF TSSR 
CRADFS ERRNO, T174SSR,PKTSSR DEVICE FATAL SSR FAILED TO SET 
b a 3 
TRAP CSEROF 
.WORD 646 
"wORD T174SSR 
“WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
CsCLPi 
Setup i a op ee SL pattern in FIFO dete bu 
MOV OTLT7EXSTA,R1 ;EXPD ORTTE *etro DATA BUFFER 
MOV 064. .R2 TEST PATTERN SIZE 
CLR RO ;INCREMENT TEST PATTERN 
MOVB RO,(R1)+ ;STORE INCREMENT TEST BYTE 
INC RO ;SET NEXT PATTERN 
DEC R2 ; DONE ? 
BGT 1308 ;BR IF NO 


; oa vad COUNT 1 TO 65. 


1528: 


#1,COUNT ;GET FIRST BYTE COUNT 
Do e Write Subsystem WRITE FIFO with the current byte count 
;REPEAT LOOP LABEL 


| 
| 
| 
| 
MOV COUNT ,RO iF IFO BYTE COUNT 
MOV OTL7EXSTA, R1 sFIFO WRITE DATA ADORESS 
JSR PC, TI7WFIF ;SETUP T17PK2 FOR WRITE FIFO 
MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) iSET THE PACKET ADDRESS TO EXECUTE 
PC,CHKTSSP ;WAIT FOR SSR TO SET 
FORCERROR 1528 Tah ERROR IF FORCER=1 
6cs 160$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 i SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO,T175SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 647 
a T175SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG sr. 
CSCLP1 
Do e Write Ftexetee Write Mise to Reset FIFO 
JSR PC.T ;SETUP PKT FOR WRITE MISC RESET FIFO 
MOV @T17PK2,R4 ;GET nae SUBSYSTEM COMMAND PACKET 
MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET i 
FORCERROR 162$ ;8@D0FORCE ERROR IF FORCER=1 
BcS 170% 3;68R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
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7303 045442 1628: 
045442 104455 
045444 001210 
045446 046232 
045450 012046 . 
304 045452 005237 002222 
7305 045456 1708: 
045456 104406 
| 7306 
} 7307 3 
7308 3 
| 7309 F 
| 7310 045460 004737 047334 
| 7311 04 012704 047720 
i 7312 045470 010465 000000 
7313 045474 004737 016336 
7314 045 
7315 045514 103407 
7316 045516 C10001 
7317 045520 
73186 045520 177%: 
045520 104455 
045522 001211 
045524 046276 
045526 012046 
7319 045530 005237 002222 
7 045534 1808: 
045534 
7321 045536 737 047516 
7322 5 012701 045752 
7323 5 012702 047612 
7 045552. 011211 
7325 045554 271 002000 
7 045 042711 001000 
7327 045 042711 000400 
7328 045570 016261 000002 000002 
7329 045576 
7330 045600 012701 047572 
7331 045604 012702 045732 
7332 045610 012703 000024 
Lb 5 oshere 737 011500 
7335 045630 103404 
7336 045632 
7337 045632 1928: 
045632 1044 
045634 001212 
045636 047224 
045640 012350 
7338 045642 200%: 
045642 104406 
7339 
7340 
7341 045644 250%: 
7342 04 
7343 045654 005237 002310 
7 045660 023727 002310 000101 


ERROF 


INC 
CKLOOP 


Do ea Write ————— READ STATUS 


If ell Tape ee ve 2 CICER, IFMK,IHER) flip-flop 


signels NOT=0 Then Print Error 
JSR PC.T1 17SR 
MOV @T17PK2,R4 
MOV R4, TSDBCRS) 
JSR PC,.CHKTSSR 
FORCERROR 177 
BCS 180 
MOV RO,R1 
NEXT .E 
ERROF  ERRNO,T173SSR,PKTSSR 
FATFLG 
CKLOOP 
JSR PC, TI7SETEXP 
MOV OT1I7EXSTA,R1 
MOV @T17BFSTA,R2 
MOV C(R2),(R1) 
BIC #S1.ICER,(P1) 
BIC ge Ot R1) 
BIC @S1.IHER,(R1) 
MOV 2(R2),2(R1) 
CLR RO 
MOV @T17BFR,R1 
MOV OT17EXP .R2 
MOV $20. ,R3 
JSR PC, SG2 
42 192$,NOTSSR 
NEXT .ERRNO 
ERRHRD ERRNO,1T177CMP,MSGSTAT 
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ERRNO, T172SSR,PKTSSR 


FATFLG 


CKLOOP 

FORCEXIT 260% 
INC COUN 

CMP COUNT, #65. 


SEQ 0172 

sDEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 

-WORD 648 

-WORD 1172SSR 

«WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG = 

CSCLP1 


;SETUP PACKET FOR READ STATUS 
s;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET_ THE oe ce TO EXECUTE 


sWAIT FOR SSR T 

s@@0FORCE ERROR IF FORCER=1 
:BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. 649 
-WORD 1173SSR 
-WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG 1 


CSCLP1 
WORDS 0-7 erate (NOT TESTING) 
sGET EXPECTED READ STATUS 

3GET onoe READ STATUS 

WORD wy RECV TEMP 


sSET EXPD IHER = 

sSET EXPO @9 = RECV (NOT TESTING) 

sHIGH RECV ADDRESS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 

sEXPO ADDRESS 

sNUMBER OF BYTES TO COMPARE 

sEXPD EQUAL RECV? 

;880 

;BR IF YES 

sREPORT ERROR 
TRAP LSERHRD 
-WORD 650 
-WORD 1177CMP 
-WORD MSGSTAT 

s;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sGET NEXT BYTE COUNT 
sDONE ALL BYTES? 
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101002 
000137 


104432 
co2112 
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045314 


002222 


017202 
016456 


037754 


Monday 16-Sep-85 10:39 Page 84-26 


BHI 
JMP 


2608: 


3008: 


305%: 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


TL7MSK: 


TL7EXP; 


TL7EXSTA: 
T17EXEND: 


TL 7WFDATA: 


+ 
;LOCAL TEXT MESSAGES FOR TEST 


TST17I0: 
T17SSR: 


17 . 
T172SSR: . 
T173SSR:. 
T174SSR: .A 
T175SSR: 


260% 
150% 


FATFLG 
300% 


PC, CKDROP 
PC, TSTLOOP 
305$ 
T17L00P 


TST 


tC<000> 
tC<340> 
anere 


ooooocoo 


-BLKB 66. 


-ASCIZ 


-BLKB 66. 


-ASCIZ ‘FIFO Exerciser’ 


SEQ 0173 


BR IF YES 
300 ANOTHER BYTE COUNT 


444111111177 END SUBTEST /////////7/ 
L10064: 
TRAP CsESUB 


s ANY A ERRORS ? 


100 — 
;LOOP UNTIL ITERATIONS DONE 


34444414407 EXIT TEST SSSSAA1/47/ 
TRAP CsExIT 
«WORD L10056-. 


sMASK OF UNTESTED BITS IN READ STATUS BYTES 
ool gd BITS ARE SET TO 1 

sBYTE O MASK 

sBYTE 1 MASK (PARERR, IRESV2, IRESV1) 

sBYTE 2 (TIMER A,TIMER B,UNDEF INED<1:0>) 
sMAKE IT EVEN 


;BEGIN peer ree DATA BUFFER 
sMESSAGE TYPE 
sDATA FIELD LENGTH 


3 
eta CALWAYS PRESENT FOR WRITE SUB.) 
sEXPECTED READ STATUS AND WRITE FIFO DATA 
sEND EXPECTED DATA BUFFER 


sWRITE FIFO EXPECTED DATA BUFFER 


‘WRITE CHARACTERISTICS Failed’ 
‘WRITE SUBSYSTEM (Write Misc) Failed’ 
‘WRITE SUBSYSTEM (Read Stetus) Failed’ 


‘WRITE SUBSYSTEM (Write 
‘WRITE SUBSYSTEM (Write F 


r) Failed’ 
FO) Feiled’ 
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047572 
000120 


047310 
047730 
000005 


111 


SEQ 0174 


Incorrect after Initialize’ 
‘Read FIFO Date net t Ss} to Write FIFO , Date is in WORD 086’ 
ORD #9) Incorrect after WRITE FIFO’ 


T176SSR:.ASCIZ ‘WRITE SUBSYSTEM (Reed | FIFO) Failed’ 
TL71CMP: .ASCIZ ‘FIFO Status in WORD #9 
T172CMP: .ASCIZ 
T173CMP: .ASCIZ ‘FIFO Status (In W 
74CMP:.ASCIZ ‘FIFO Status (In WORD 09) Incorrect after RE 


AD FIFO’ 


T1L7SCMP: .ASCIZ ‘Read FIFO Data not gavet to Write FIFO Date’ 
76CMP: .ASCIZ ‘FIFO Status (In WORD #9) Incorrect after READ FIFO from an Empty FIFO’ 
T177CMP: ‘ee ‘FIFO Status (In WORD #9) Incorrect after RESET FIFO’ 
3¢ 
3; CLEAR MESSAGE BUFFER 
T17CLRBUF : , 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV @T17BFR,R1L ;GET MESSAGE BUFFER ADDRESS 
MOV #T17BEND-T17BFR,R2 3SIZE OF MESSAGE BUFFER IN BYTES 
10%: CLRB CR1)+ ;CLEAR A BYTE 
DEC 2 :DONE? 
BGT 10$ ;68R IF NO 
RTS PC ;RETURN 
+ setup T17PK2 PACKET FOR READ STATUS 
i7SRD: 
JSR PC, Se a aa ;CLEAR MESSAGE BUFFER 
MOV @Ti70T2 sWRITE SUBSYSTEM DATA BUFFER 
MOVB oPu. RDSTATUS, CRO)>+ :STORE READ STATUS COMMAND IN BSELO 
CLRB CRO) ;CLEAR BSEL1 
RTS ;RETURN 
* setup T17PK2 PACKET FOR WRITE MISC RESET FIFO 
Ti 7RSFIF: 
JSR PC, T17CLRBUF ;CLEAR MESSAGE BUFFER 
MOV #Ti70T2,RO sWRITE SUBSYSTEM DATA BUFFER 
MOVE OPW. WMISC,(RO)+ sSTORE WRITE MISCELLANEOUS IN BSELO 
MOVB ons. RSFIF MS. RSTAP, CRO) ; STORE BSEL1 CLL AR FIFO CODES 
RTS PC sRETURN 
SETUP T17PK2 PACKET FOR WRITE NPR 
: INPUT: 
3 RO CONTAINS BSEL1 NPR DATA 
; SETS NP.WRP SINCE IF 0 IT WRITES WRONG PARITY. 
T17SNPR: 
JS PC, T17CLRBUF ;CLEAR MESSAGE BUFFER 
MOV evi 7072 oe R1 i WRITE SUBSYSTEM DATA BUFFER 
MOVB OPW.WNPR,CR1)+ sSTORE WRITE NPR IN BSELO 
BIS ONP WR ;D00N‘'T WRITE WRONG PARITY 
MOVB RO,(R1) ; STORE NPR DATA IN BSEL1 
RTS PC ;RETURN 





re enn = eC 
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| SEQ 0175 
TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 
7455 
7456 s¢ 
Lint 34 ; SETUP T17PK2 PACKET FOR WRITE FIFO 
: 
7459 ; INPUT: 
i 7460 : RO CONTAINS BYTE COUNT 
eet | : Ri CONTAINS DATA PATTERN BLOCK ADDRESS 
7463 047422 Fi 7WF IF: 
7464 047422 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
7465 047426 004737 047310 JSR PC. T17CLRBUF sCLEAR MESSAGE BUFFER 
7466 047432 012702 047730 MOV #T170T2,R2 sWRITE SUBSYSTEM DATA BUFFER 
7467 047436 112722 000004 MOVB OPW. WFIFO,CR2)+ sSTORE WRITE FIFO IN BSELO 
7468 047442 110022 MOVB RO,CR2)¢ sSTORE BYTE COUNT IN BSEL1 
7469 047444 005022 CLR C(R2)+ sCLEAR SEL2 CUNUSED) 
7470 047446 112122 108: MOvB CR1)+,CR2)+ sSTORE DATA PATTERN BYTE 
7471 047450 005300 DEC RO +a ALi BYTES? 
7472 047452 003375 BGT 10% ;8R 
7473 047454 ©C00207 RTS PC RETURN 
7474 
7475 3+ 
jd 3; SETUP T17PK2 PACKET FOR READ FIFO 
; 
7478 s INPUT: 
$8 3 RO CONTAINS SEL2 BYTE COUNT 
7481 047456 Ti7RFIF : 
7482 047456 004737 047310 JSR PC, T17CLRBUF ;CLEAR MESSAGE BUFFER 
7483 047462 012701 047730 MOV eT170T2.R1 sWRITE SUBSYSTEM DATA BUFFER 
7484 047466 112721 000003 MOVB oPW.RFIFO,(R1)+ sSTORE READ FIFO IN BSELO 
7485 047472 110021 MOVB RO,CR1)+ sSTORE BYTE COUNT IN BSEL1 
reese 047474 000207 RTS PC sRETURN 
3¢ 
vase ; CLEAR EXPECTED DATA MESSAGE BUFFER 
hed 
7490 047476 TI7CLEXP: 
7491 047476 012701 045732 MOV @TI7EXP,R ;GET EXPD ADDRESS 
7492 047502 012700 000122 MOV STLYEXEND- T17EXP ,RO sGET EXPO SIZE 
7493 047506 105021 10%: CLRB C(R1)+ s;CLEAR A BYTE 
7494 047510 005300 CEC RO 3 DONE? 
7495 047512 003375 BGT 10% ;BR IF NO 
7496 047514 000207 RTS PC ;RETURN 
7497 
7498 s¢ 
yep ;Set WORDS 0-7 of expd message buffer = to recv since not testing 
7501 047516 TI7SETEXP: 
7502 047516 012702 045732 MOV @T17EXP ,R2 sGET EXPO 
7503 047522 012703 047572 MOV @T17BFR,R3 sGET READ STATUS Recy BUFFER 
7504 047526 012700 000010 MOV o6., 3SET S 0-7 EXP=RECV 
7505 047532 012322 S$: MOV CR3)+,CR2)¢ iSET EXPO=RECV 
7506 047534 005300 DEC RO sDONE WORDS 0-7 WORDS? 
7507 047536 003375 6GT S$ :BR_ IF NO 
7508 047540 000207 RTS PC ;RETURN 


7509 
7511 047550 -*¢,¢10>€177770 





~— 


| TSVS - HARDWARE TESTS MACRO YOS.02 Monday 16-Sep-85 10:39 Page 84-29 


| SEQ 0176 
| TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 
7318 sWRITE CHARACTERISTICS COMMAND PACKET 
iy { 
7516 047550 TI 7PACKET: ;COMMAND PACKET FOR TEST 
7517 047550 100004 . WORD 100004 ;WRITE CHARACTERISTICS COMMAND, WITH ACK | 
7518 047552 047560 .WORD TL7DATA sADORESS OF CHARACTERISTICS BLOCK | 
7519 047554 000000 -WORD QO 
vase 047556 000012 . WORD 10. sMINIMUM MESSAGE PACKET SIZE 
7522 047560 T1L7DATA: ip ony De! AS OATA BLOCK 
7523 047560 047572 . WORD T17BFR sADDRESS OF MESSAGE BUFFER 
7524 047562 000000 -WORDB O 
7525 047564 000024 -WORD 20. ;LENGTH OF MESSAGE BUFFER 
7526 047566 000000 -WORD O :ESS,ENB,EAI,E 
be 44 047570 000000 - WORD 0 ; EXTENDED FEATURES UNIT NO. ETC. 
7529 
vee sMESSAGE BUFFER FOR ALL TEST 6 COMMANDS 
7532 047572 T176FR: sBEGIN MESSAGE BUFFER 
7533 047572 000000 -WORDB O sMESSAGE TYPE 
34 047574 000000 -WORDB O iDATA FIELD LENGTH 
7535 047576 000000 -WORD O sRBPCR 
7536 047 000000 -WORD O 3XSTO 
7537 047602 000000 -WORD O sXST1 
7538 047604 000000 -WORD O :xST2 
7539 047 000000 -WORD 0O 3XST3 
7540 047610 000000 -WORD O 3XST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
7541 047612 T17BFSTA: .BLKB 64. sREAD STATUS AND WRITE FIFO BUFFER 
Le | 047712 T1I7BEND: sEND OF MESSAGE BUFFER 
3 
Le ae sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
3 
7547 047720 i -#¢,+10>€177770 
7549 047720 f17PK2: 
7550 047720 100006 -.WORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
7551 047722 047730 . WORD T170T2 sLOW ADDRESS OF DATA BLOCK 
7552 047724 000000 -WORD O sHIGH ADDRESS OF DATA BLOCK 
res 047726 000012 . WORD 10. sMINIMUM MESSAGE PACKET SIZE 
7555 047730 T170Te: sDATA BLOCK 
7556 047730 000 .BYTE f¢) ;BSELO 
7557 047731 000 -BYTE 0O sBSEL1 
7558 047732 000000 -WORD O sSEL2 
7559 047734 -BLKB 66 sWRITE FIFO DATA OUTPUT BUFFER 
7561 050036 ENOTST 
050036 L10056: 
7562 0S0036 104401 TRAP CsETST 
LL x3 .SBTTL TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
3¢ 
7565 3; TEST DESCRIPTION: 
7566 3 
7567 r 
7568 3; TEST STEPS: 
7569 : 
7570 3 REPEAT FOR LOOPCNT 
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| SEQ 0177 
| TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 

7571 3 BEGIN 

7572 3 Write to TSSR ister to soft initialize the controller \ 

7573 3 Do WRITE CHARACT RISTICS to check for Extended Features Switch ' 

7574 3 If “ory ee Herdweare Switch Clear then: 

7575 3 Do Write Subs moves em Write Miscellaneous to Set Extended Features. 

7576 ; Do GRITE. CHARAC ERISTICS to select reserved unit 7 

7577 3 Do a Write Subsystem READ STATUS 

7578 3 If any tranapert interface signals are asserted then Print Error 

7579 3 END 

7580 t-- 

7561 

7582 

7583 BGNTST 

050040 T7 

7588 050040 012700 050546 MOV #TST18ID,RO sASCII MESSAGE TO IDENTIFY TEST 

7589 050044 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

7590 050050 012737 000012 002216 MOV #10. ,LOOPCNT i PERFORM 10 ITERATIONS 

7591 050056 T18LOOP: 


050056 : 

7594 050056 004737 015774 JSR PC ,SOFINIT sWRITE TO TSSR TO = INITIALIZE 

7595 050062 103405 BCS 10% sBR IF SOFT INIT OKAY 

7596 050064 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

7597 050066 ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
050066 104455 TRAP CSEROF 
050070 001274 -WORD 700 
050072 003652 -WORD SFIERR 
050074 012034 «WORD SFIMSG 


75 3 Do mein CHARACTERISTICS to check for Extended Features Switch 
7600 050076 005037 002222 108: CLR FATFLG ;CLEAR FATAL ERROR FLAG 

7601 050102 012704 051230 MOV @TISPACKET ,R4 iGET THE ADDRESS OF COMMAND PACKET 
7602 050106 004737 010662 JSR PC,WRTCHR ;00 WRITE CHARACTERISTICS COMMAND 
7603 050112 FORCERROR 12$ seer aye ERROR IF FORCER=1 
7604 050126 103407 BCS 15% 38R IF CARRY SET (GOOD RETURN) 

7605 050130 01000. ~ RO,R1 i SAVE CONTENTS OF TSSR 


NEXT .E 
7607 050132 12%: ERROF ERRNO,T18SSR,PKTSSR sDEVICE FATAL SSR PARAS TY sat 


1044 
050134 001275 -WORD 701 
050136 050605 -WORD T18SSR 
050140 012046 -WORD PKTSSR 
7608 050142 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
7609 est oy 15%: CKLOOP sLOOP ON ERROR, IF FLAG <r. 


7611 3 If Extended Features Hardware Switch Clear then: 

2 3 Do Write Subsystem Write Miscellaneous to Set Extended Features. 
7613 050150 012701 051252 MOV #T18BFR,R1 sMESSAGE BUFFER ADDRESS 
7614 050154 032761 000200 000012 BIT @x2. EXTF, xST2CR1) i EXTENDED FEATURES SWITCH SET? 
7615 050162 001026 BNE 30% 38R IF YES 
7616 050164 004737 051076 JSR PC. TI8SMISC sSETUP PACKET FOR WRITE MISCELLANEOUS 
7617 050170 012704 051300 MOV Seeking iGET wre SUBSYSTEM COMMAND PACKET 


7618 050174 010465 000000 MOV R4, TSOBCRS) iSET THE PACKET ADDRESS TO EXECUTE 


7619 050200 004737 016536 JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 
7620 050204 FORCERROR 228 s@80FORCE ERROR IF FORCER=1 
7621 050220 103407 Bcs 30% :6R IF CARRY SET (GOOD RETURN) 


7592 b, “Write to TSSR register to soft initialize the controller a 
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7622 050222 


TESTS 

010001 
104455 
001276 
050642 
012046 
005237 
104406 


005037 
012704 
004737 


103407 
€10001 


104455 
001277 
050605 


012046 
005237 
104406 


012701 


004737 
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002222 


002222 
051230 
010662 


002222 


051252 
051244 


051056 
051300 
000000 


016336 


002222 


051120 


228: 


308: 


42%: 


62%: 


MOV RO,R1 
NEXT .ERR 
ERROF ERRNO, T162SSR,PKTSSR 


INC FATFLG 
CKLOOP 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
- WORD 2 
-WORD 1182SSR 
-WORD PKTSSR 
ty! FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG <r. 
TRAP CsCLP1 


Do WRITE wee to select reserved un 


MOV @T1IBPACKET ,R4 
JSR enn PC ,WRTICHR 


FORCERROR 

Bcs SO 

MOV RO,R1 

NEXT .ERRNO 

ERRDF  ERRNO,T18SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Clear mess buffer 
MOV @T1SBFR,R1 
MOV TI8DATA+4, RO 
CLRB CR1i)« 

DEC RO 


BGT 60% 
Do a vale * Bart: stem READ STATUS 
JSR 18SkO 


JSR : 

FORCERROR 2 

BCS 

NEXT. -= 

ERRDF ERRNO,T163SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Set first 8 words o 
Set unused bits in "bene Stetus e 
JSR PC, TISSETEXP 


s;CLEAR FATAL “ERROR FLAG 

iGET THE ADDRESS OF COMMAND PACKET 

300 WRITE CHARACTERISTICS COMMAND 
;@@0FORCE ERROR IF FORCER=1 

s8R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. WORD 03 
-WORD T18SSR 
- WORD TSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sGET MESSAGE BUFFER ADDRESS 
sSIZE OF MESSAGE BUFFER IN BYTES 
s;CLEAR A BYTE 


sDONE? 
;6R IF NO 
;SETUP PACKET FOR READ STATUS 
TEM COMMAND PACKET 
TO EXECUTE 
sWAIT FOR SSR T 
CE ERROR IF FORCER=1 


3; 880F OR 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


+ a 
a T183SSR 
TSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


f expd message Spent = | recv since not testing 
“eer gon SOME EXPD TO RECV 


SEQ 0178 





TSVS - HARDWARE TESTS MACRO YOS.02 Monday 16-Sep-85 10:39 Page 84-32 


SEQ 0179 
| TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
7664 F If any transport interface signals are rted then Print Error 
7665 050414 005000 CLR RO sHIGH RECV. ADORESS FOR CKMSG2 
7666 050416 012701 051252 MOV @T18BFR,R1 sLOW RECV + ae FOR CKMSG2 
7667 050422 012702 050516 MOV @T18EXP.R2 EXPO ag 
7 012703 000012 MOV #10. .R3 sNUMBER OF WORDS . COMPARE j 
7669 050432 004737 011500 JSR PC .CKMSG2 iEXPD EQUAL RECV? 
7670 050436 FORCERROR 82% ,.NOTSSR 3880 
7671 050446 103404 BCcS 90% ;BR IF YES 
7672 050450 NEXT .ERRNO 
7673 050450 82%: ERRHRD ERRNO, TISCMP,MSGSTAT sREPORT ERROR 
050450 104456 TRAP CSERHRD 
050452 001501 -WORD 705 
050454 050753 -WORD T18CMP 
050456 012350 . MSGSTAT 
7674 050460 90%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
7675 050460 104406 TRAP CSCLP1 
7676 050462 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
7677 050466 C01402 BEQ 160% sBRANCH IF NOT 
7678 050470 004737 017202 JSR PC .CKDROP sTRY TO DROP THE UNIT 
7679 050474 004737 016456 1608: JSR PC, TSTLOOP ;00 ITERATIONS? 
7680 050500 103002 Bcc 165% 3;6R IF NO 
76861 050502 000137 050056 JMP T18LOOP sLOOP UNTIL ITERATIONS DONE 
7682 050506 1658: 
7683 050506 EXIT TST 
050506 104432 TRAP CsExIT 
050510 000606 -WORD L10065-. 
7684 
7685 
7686 s¢ 
7687 sLOCAL STORAGE FOR THIS TEST 
reas . 
7690 050512 T16MSK; sMASK OF UNUSED BITS IN READ STATUS BYTES 
7691 050512 377 -BYTE t€<000> sBYTE 0 MASK 
7692 050513 037 -BYTE t€<340> ;BYTE 1 
7693 050514 100 -BYTE 1tC<277> sBYTE 2 
A $4 050515 000 -BYTE 0 sMAKE IT EVEN 
7696 050516 T18EXP: sEXPECTED DATA BUFFER 
7697 050516 000000 -WORD O 3MES 
698 050520 000000 -WORD O sDATA FIELD LENGTH 
7699 050522 000000 -WORD O sRBPCR 
050524 000000 -WORD O 3XSTO 
7701 050526 000000 -WORD O sXST1 
02 30 000000 -WORDB O sxST2 
7703 050532 000000 -WORD O 3XST3 
7704 050534 000000 -WORD O ;XST4 CALWAYS PRESENT FOR WRITE SUB) 
7705 050536 000000 -WORD O sREAD STATUS BYTE 1/0 
et 050540 000000 -WORD 9 sREAD STATUS BYTE 2 
7708 050542 377 020 T16XS: BYTE 377,020 sREAD STATUS BYTE 0/1 EXPECTED BASE 
ha 050544 000000 WORD O sREAD STATUS BYTE 2 EXPECTED BASE 
7711 3° 
7712 sLOCAL TEXT MESSAGES FOR TEST 
7713 8° 
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SEQ 0180 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
7714 
7715 050546 123 164 141 TST18I0: -ASCIZ ‘Static Tren t Bus Interface’ 


7716 050605 127 122 111 T186SSR: .ASCIZ ‘WRITE CHARACTERISTIC Failed’ 
| 7717 050642 127 122 111 Ti82SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Feiled’ 


i 
7718 050706 127 122 111 T183SSR:.ASCIZ ‘WRITE SUBSYSTEM (Reed Stetus) Failed’ 
4th 4 050753 124 162 141 TiSCMP: yy ‘Transport Bus Interface Signals NOT Negated After Unit 7 Selected’ 
7721 
7722 3° 
7728 ; SETUP T18PK2 PACKET FOR READ STATUS 
7725 051056 fissro: 
7726 051056 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
7727 051062 012700 051310 MOV @T18DT2,RO ;WRITE SUBSYSTEM DATA BUFFER 
7728 051066 112720 000005 MOVE $$ PW.RDSTATUS,(RO)+ sSTORE READ STATUS COMMAND IN BSELO 
7729 051072 105010 CLRB =s-s« CRO) ;CLEAR BSEL1 
7730 051074 000207 RTS PC ;RETURN 
7731 
7732 3° 
7738 3 SETUP T18PK2 PACKET FOR WRITE MISC. 
7735 051076 TissMIsc: 
7736 051076 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
7737 051102 012700 051310 MOV @T160T2,R0 ;WRITE SUBSYSTEM DATA BUFFER 
7738 051106 112720 000010 MOVB $$ @PW.WMISC,(RO)+ 3STORE WRITE MISCELLANEOUS IN BSELO 
7739 051112 112710 000200 MOVB @MS.EXT, CRO) sSTORE INVERT EXTENDED FEATURES IN BSEL1 
7740 051116 000207 RTS PC ;RETURN 
tha2 
7743 }Set first & words of expd mess buffer = to recv — not testing 
vas 3 Set unused bits in Read Stetus expd equal rcvd 
7746 051120 TISSETEXP: 
7747 051120 012702 050516 MOV @T18EXP ,R2 sGET EXPD 
7748 051124 012703 051252 MOV @T18BFR.R3 ;GET READ STATUS RECV BUFFER 
7749 051130 012700 000010 MOV 08. ,RO SET FIRST 8 WORDS EXP=RECV 
7750 051134 012322 S$: MOV (R3)+,(R2)> 3SET EXPD=RECV 
7751 051136 005300 DEC RO {DONE FIRST & WORDS? 
7752 051140 003375 BGT S$ 3BR iF 
7753 051142 012701 050512 MOV T R ;GET UNUSED BIT MASK 
1146 013712 050542 MOV 18xS,(R2) ;SETUP BASE EXPECTED BYTE 1/0 
7755 051152 013762 544 000002 MOV T18XxS+2,2(R2) sSETUP BASE EXPECTED BYTE 2 
7756 051160 011300 MOV (R3),RO GET RECV BYTE 1 AND BYTE O 
7757 051162 041100 BIC (R1).RO ;CLEAR ALL BUT UNUSED 
7758 051164 040012 BIC RO, (R2) sCLEAR UNUSED IN EXP 
7759 051166 050012 BIS RO, (R2) iSET UNUSED EXPD*RECV FOR COMPARE 
77 1170 016300 000002 2(R3),RO :GET RECV BYTE 2 
7761 051174 046100 0v0002 BIC 2(R1).RO : ALL BUT 
77 1200 040062 000002 BIC RO, 2(R2) sCLEAR UNUSED IN EXPO 
7763 051204 050062 000002 BIS RO,2(R2) 3SET UNUSED EXPD=RECV FOR COMPARE 
7764 051210 105062 000003 3(R2) sCLEAR EXPD BYTE 3 (UNUSED) 
7765 051214 105063 000003 CLRB =-_- 3(R3) ;CLEAR RECV BYTE 3 (UNUSED) 
776 000207 RTS PC ;RETURN 
7769 051230 .®¢, 61026177770 
7771 


7772 ;MRITE CHARARTERISTICS COMMAND PACKET 
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SEQ 0181 
_ TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
7773 i } 
7774 051230 18PACKET: sCOMMAND PACKET FOR TEST 
| 9775 051230 100004 .WORD 100004 ;WRITE CHARACTERISTICS COMMAND, WITH ACK 
| 7776 051232 051240 “WORD TI8DATA sADORESS OF CHARACTERISTICS BLOCK 
| 9777 051234 “WORD 0 
051236 000012 “WORD 10. sMESSAGE PACKET MINIMUM SIZE 
7780 051240 TI8DATA: sCHARACTERISTICS DATA BLOCK 
7761 051240 051252 . WORD T18BFR sADORESS OF MESSAGE BUFFER 
7783 Osises 000024 “WORD 20. ;LENGTH OF MESSAGE BUFFER 
7784 051246 “WORD 0 s€SS,ENB,EAI,ERI 
7785 051250 000007 “wORD 7 ;SELECT RESERVED UNIT 7 
7787 
7788 051252 T1SBFR: ;MESSAGE BUFFER 
7789 051252 000000 .WORD 0 ;MESSAGE TYPE 
05 000000 "WORD 0 ;0ATA FIELD LENGTH 
7791 051256 C00000 “WORD 0 
05 000000 “WORD 0 3XSTO 
7793 051262 000000 “WORD 0 sXST1 
051. 000000 "WORD 0 3xST2 
05 000000 [WORD 0 3XST3 
051270 000000 “WORD 0 3XST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
7797 051272 000000 “WORD 0 ;READ STATUS BYTE 1/0 RETURNED 
7798 051274 000000 “WORD 0 sREAD STATUS BYTE 2 
3 
7800 ;WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
3 
7803 051300 .®<, 6106177770 
7805 051300 T18PK2: 
7806 051300 100006 .WORD P.WRTSUB!P.ACK ;WRITE SUBSYSTEM WITH ACK 
7807 051302 051310 “WORD  TisDT2 3LOW ADDRESS OF DATA BLOCK 
7808 051304 000000 ‘WORD 0 sHIGH ADDRESS OF DATA BLOCK 
7809 051306 000010 “WORD 8. }BUFFER EXTENT 


7810 
yer OF3310 T180T2: sDATA BLOCK 
BSELO 


7a1$ 93 000 -BYTE 0 3 
Lat osisit 000 -BYTE 0 sBSEL1 
4 051312 000000 -WORD O 3sSEL2 
Tals 051314 000000 -WORD O sDATA 
7617 
7616 051316 ENDTST 
051316 L1006S: 
051316 104401 TRAP LSETST 
La $3 -SBTTL TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 
oe 
702 } TEST DESCRIPTION: 
822 3 
7823 : This test verifies the controller's Transport Bus 
7824 3 drivers, receivers, end signel loopbeck logic. Note 
7825 3 thet the Stetic Transport Gus test aust heve run 
ress ’ correctly for this test to provide meaningful results. 
7828 : TEST STEPS: 
3 








\ 

| 
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TEST 6: TRANSPORT BUS INTERFACE LOOPBACK TEST 


SEQ 0182 


a 


7830 s REPEAT FOR LOOPCNT 
7831 3 BEGIN 
7832 3 Do Subtest 1 - Loopbeck Control signele test 
7833 3 Do Subtest 2 - Loopbeck Read/Write ol pate test 
7634 A Do Subtest 3 - Loopbeck Write Strobe test 
yess 3 Do Subtest 4 - Loopbeck Reed Strobe test 
7837 = 
7638 
7839 
7840 051320 BGNTST 

051320 Té:: 
7864S 051320 012700 057532 MOV #TST19ID0 RO sASCII MESSAGE TO IDENTIFY TEST 
7846 051324 004737 016510 JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
7847 051330 012737 000012 002216 MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
ress 051336 T19L00P: 
rene -S8TTL TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 
78S2 poe 
ress s TEST 8: SUBTEST 1: 
7855 ; SUBTEST DESCRIPTION: 

3 
7837 This subtest verifies the Tr rt Control 1 
7858 : path cen trencait end sesclun enrveckt . The anaes 
7859 3 control signels ere ell 1 elenele other 
ree 3 then the read/write dete (IW<7:0> and IR.7:0>). 
rose ; TEST STEPS: 
7864 ; The 1 signele IFAD, ITADO,ITAD1 ere the tape unit select 
7865 7 lines. Since reserved unit 7 remain selected these signals 
7866 3 ere always set low. This further means the signals they drive 
L534 3 CISPEED, Y.IONL) ere only tested in the low state. 
7869 ; BEGIN | 
7870 3 Write to TSSR cogioter te soft initielize the controller 
7671 3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 
vers 3 If Extended Features Herdwere Switch Cleer then: 
76 3 Do write Spovetes Write Miecelleneous to Set Extended Feetures. 
7674 5 WRITE ISTICS to select reserved unit 7 end setup BUFFER 
7867S : Do ae tty Be ey WRITE NPR to ood, Fane direction out and Loopback 
7676 3 Do Write Write Centroel to ——— signele grou i. 
7677 3 Do ty ee Write Formet to CLEAR signals eee 2. 
7878 3 (the signele have to be cleered here dus to the flip-fiepe 
vers : oe ee eet on e ya, R granesttan Sg hg SE 5 
830 e Write Subsysten iec Reset Tepe Status F-FLOPS 
7881 ° De © Urite Suseystes READ STATUS 
ress 8 If ell Tepe St 2 CICER, IFMK,IMER) flip-flep 
3 signele NOT<0 Then Print Error 

roe : REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
686 3 BEGIN 
7687 Do Write Subsystes Write Centrol to Drive 1 sigrele grow 1. 
7688 : Do Write renee wie Foraet to Orive 1 sigrele grou 2. 
7639 3 Do e Write READ STATUS 
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7931 051522 
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015774 


002222 


061702 
000200 
061532 
062030 
000000 
016336 


002222 


000012 


12$: 


228: 


If loopback date NOT= date sent Then Print Error 
Do a Write Subsystem Write Misc to Reset Tape Status F-FLOPS 
Do a Write Subsystem READ STATUS 
If all Tape Status 2 (CICER,IFMK,IHER) flip-flop 
signals NOT=0 Then Print Error 


BGNSUB 34/////1////// BEGIN SUBTEST ////////7/7/ 
TO.t5 tRap ceBsuB 

Write to TSSR register to soft initialize the controller 

JSR PC,SOr INIT sWRITE TO TSSR ah INITIALIZE 


6cS 10$% +14 IF SOFT INIT 
MOV RO,R1 SAVE CONTENTS OF TSSR 
ERRDF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
; TRAP CSEROF 
a SFIERR 
-WORD SFI 
Do ware ee to check for Extended postures Switch 
CLR TFLG ;CLEAR FATAL ERROR F 
MOV OTIOPACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 
JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 12$ ;8@DFORCE ERROR IF FORCER=1 
bcs 153% ;B8R IF CARRY SET (GOOD RETURN) 
Vv RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF  ERRNO,T19SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 801 
-WORD T19SSR 
-WORD PKTSSR 


INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
If Extended Features Hardware Switch Clear then: 
Do Write Subsystem Write Miscellaneous to Set Extended Features. 
MOV #T19BFR,R1 sMESSAGE BUFFER ADDRESS 
BIT one EXTF ,XST2(R1) sEXTENDED FEATURES SWITCH SET? 
BNE 30% ;BR IF YES 
JSR PC, T1L9SEXT 


sSETUP PACKET FOR WRITE MISC INVERT 
MOV @Ti9PK2,R4 sGET ws SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) s;SET_ THE PACKET ADDRESS TO EXECUTE 
JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 228 ;@@0FORCE ERROR IF FORCER=1 
BcS 30% BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 802 
-WORD 1192SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 





SEQ 0183 


aihittaiciaiimnieaal 
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SEQ 0184 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


051522 104406 TRAP CSCLP1 
79 3 Do WRITE — to select reserved un 
7933 051524 005037 002222 CLR FLG ;CLEAR FATAL “EanOR FLAG 
7934 051530 012704 061660 MOV STIOPACKET, R4 ;GET THE ADORESS OF COMMAND PACKET 
7935 051534 004737 010662 JSR PC ,WRTCHR ;00 WRITE CHARACTERISTICS COMMAND 
7936 051540 FORCERROR 42% ;@8@0FORCE ERROR IF FORCER=1 
7937 051554 103407 6cs 50$ ;B8R IF CARRY SET (GOOD RETURN) 
7938 051556 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
| 7939 051560 NEXT .E 
940 051560 42%: ERRDF  ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
051560 104455 TRAP CSEROF ' 
i 051562 001443 -WORD 803 | 
| 051564 057573 -WORD T19SSR 
051566 012046 -WORD PKTSSR 
7941 051570 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
7942 051574 5038: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
051574 104406 TRAP CSCLPi 
7943 3 Do a Write Subsystem WRITE NPR to set t direction out and Loopback 
7944 051576 C12700 000100 MOV ONP .OUT,RO ;SET TAPE DIRECTION OUT 
7945 051602 052700 000040 BIS @NP .LOOP ,RO ;SET LOOPBACK ENABLE 
7946 051606 004737 061372 JSR PC, T19SNPR ;SETUP T19PK2 FOR WRITE NPR 
7947 051612 012704 062030 MOV OT19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
7948 051616 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
7949 051622 004737 016336 JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 
7950 051626 FORCERROR 62$ ;@@0FORCE ERROR IF FORCER=1 
7951 051642 103407 BCS 70$ 3;6R IF CARRY SET (GOOD RETURN) 
7952 051644 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
7953 051646 NEXT .ERRNO 
7954 051646 62¢: ERROF ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
051646 104455 TRAP CSERDF 
051650 001444 -WORD 6804 
051652 057741 -WORD 1194SSR 
051654 012046 -WORD PKTSSR 
7955 051656 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 
7956 051662 708: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
7957 en ae Do Write Subsystem Write Control to CLEAR 1 k ie 4 rs ; 
rite ystem Write Control to ack signels group 
7958 Do Write Subsystem Write Format to CLEAR Bae me i : 


signals grove 2. 
(the loopback signals have to be cleared here due to the flip-flops 


7960 that ere set on a il to O transition ir. IFMK ,ICER)) 

7961 051664 005000 CLR RO sWRITE O'S 

7962 051666 042700 000200 BIC @wC .IFAD,.RO :IFAD MUST ALWAYS =0 

7963 051672 042700 000100 BIC @wC .IOTAD.RO :ITADO MUST ALWAYS =0 

7964 051676 042700 000040 BIC @wC.I1TAD,RO sITAD1 MUST ALWAYS =0 

7965 051702 004737 061472 JSR PC, TISWCTL sSETUP PACKET FOR WRITE CONTROL 

7966 051706 012704 062030 MOV @T19PK2,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 

7967 051712 010465 000000 MOV R4, TSDOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

7968 051716 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

7969 051722 FORCERROR 82$ ;@8@0FORCE ERROR IF FORCER=1 

7970 051736 103407 BCS 90% ;8R IF CARRY SET (GOOD RETURN) 

7971 051740 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

7972 051742 NEXT .ERRNO 

7973 051742 82s: ERROF ERRNO,1T197SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
051742 104455 TRAP CSERDF 
051744 001445 -WORD 805 
051746 060113 -WORD 1197SSR 
051750 012046 .WORD PKTSSR 


3 
o 
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TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


005237 002222 INC FATFLG 
90%: CKLOOP 
194406 
005000 CLR R 
004737 061512 JSR PC, TISWFMT 
012704 062030 MOV OT19PK2 ,R4 
010465 000000 MOV R4,TSOBCRS) 
004737 016336 JSR PC,CHKTSSR 
FORCERROR 10 
103407 BCS 
010001 MOV RO,R1 
NEXT. ERRNO 
102$: ERROF ERRNO,T198SSR »PKTSSR 
104455 
001 
060162 
012046 
005237 002222 INC FATFLG 
1108: CKLOOP 
104406 
8 Do a Write e Fubeysten Write Misc 
004737 061350 JSR 
012704 062030 MOV eTigene Re 
010465 000000 MOV R4, TSDBCRS) 
004737 016336 JSR PC,CHKTSSR 
FORCE 
103407 BCS 
010001 MOV 0,R1 
NEXT .E 
122$: ERROF ERRNO, T192SSR,PKTSSR 
104455 be 
001447 
057630 
2046 
005237 002222 INC FATFLG 
130$: CKLOOP 
104406 
3 Do a Write Seypetes READ STATUS 
3 If all Tape Sta 
3 signals NOT=0 Then Print Error 
004737 061330 JSR PC,T19S 
012704 062030 MOV @T19PK2,R4 
010465 000000 MOV R4,TSOBCRS) 
004737 016336 JSR PC,CHKTSSR 
FORCE $ 
103407 BCS 
010001 Vv ° 
NEXT .ERRNO 
132$: ERRDF  ERRNO,T193SSR,PKTSSR 
104455 
001450 
057674 
2046 
005237 002222 INC FATFLG 
1408: CKLOOP 
104406 
004737 061570 JSR PC, TL9SETEXP 





SEQ 0185 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
T FORMAT DRIVE DATA=0 


C 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

3 ORCE ERROR IF FORCEP=1 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 806 
-WORD  T198SSR 


-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG le 


CSCLP1 
to Reset rege 8 tatus F-FLOPS 
;SETUP PKT FOR WRITE MISC Reset T Status F-FLOPS 


PACKE 
T ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 
s;@@0FORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. 807 
-WORD 1192SSR 
-WORD PKTSSR 
s;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG 7 . 
TRAP CSCLP1 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
SET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;8@0FORCE ERROR IF FORCER=1 
:BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
a 


-WORD 1193SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 





ener 
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052200 
052204 


012701 
012702 
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057432 
061722 


002222 


002312 
061614 


MOV OTL9EXSTA,R1 
MOV @T19BFSTA.R2 
MOV (R2),(R1) 
BIC @S1.ICER,(R1) 
BIC 0S1.IFMK.C(R1) 
BIC @51.IHER,(R1) 
MOV 2(R2),2(R1) 
CLR RO 
MOV OT19BFR,R1 
MOV OTI9EXP .R2 
MOV €20. .R3 
JSR PC, CKMSG2 
FORCERROR 152% ,NOTSSR 
BCS 60$ 
NEXT . ERRNO 
152%: ERRHRD ERRNO,T197CMP,MSGLOOP 
160%:  CKLOOP 


3; REPEAT 1, ALL_TEST PATTERNS IN TSTBLK TABLE 


sGET EXPECTED READ STATUS 
3GET RECV READ STATUS 
—— RECV TEMP 


sSET EXPO on #0 


=0 
sSET EXPO WORD #9 = RECV (NOT TESTING) 
;HIGH RECV ADORESS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 

sEXPD ADDRESS 

sNUMBER OF ores COMPARE 


;EXPD EQUAL R 

;880 

iBR IF YES 

sREPORT ERROR 
TRAP CSERHRD 
-WORD 809 
-WORD T197CMP 
-WORD MSGLOOP 

;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


CL TLOPREV ;INIT 1-0 TRANSITION FLAG 
MOV @TSTBLK,R3 ;GET FIRST PATTERN ADDRESS 
2008: MOV (R3)+,RO s6GET A TEST PATTERN 
MOV R3,TSTPTR i SAVE POINTER INTO TSTBLK 
BIC ow. IFAD, RO :IFAD MUST ALWAYS =0 
BIC - IOTAD,RO sITADO MUST ALWAYS =0 
BIC @wc .I1TAD,RO sITAD1 MUST ALWAYS =0 
MOV .“< DATA ;SET DATA PATTERN 
; Do Write stem Write Control to Drive loopback signals group 1. 
:98D0 CALL HiScwvT" a SETUP WRITE CONTROL PATTERN 
MOV DAT ;GET TEST PATTERN 
JSR PC, TISCNVT i CONVERT PATTERN TO CONTROL DRIVE MASK 
:RO CONTAINS WRITE CONTROL DATA HERE 
JSR PC, TI9WCTL sSETUP PACKET FOR WRITE CONTROL 
MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
JSR C,CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 3 ORCE ERROR IF FORCER=1 
Bcs 220 ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
2128: ERRDF ERRNO,T197SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET ‘ 
TRAP LSEROF 
-WORD 810 
-WORD T197SSR 
. WORD PKTSSR - 
INC FATFLG :SET FATAL ERROR FLAG 
2208: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 Do Write Subsystem Write Format to Dr loopback signals group 2. 


JSR 


CALL T19CNVT 
MOV 


DATA,RO 
PC, TI9CNVT 


O SETUP WRITE CONTROL PATTERN 
:GET TEST PATTERN 
sCONVERT PATTERN TO FORMAT DRIVE MASK 


SEQ 0186 
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| 8062 052436 000300 SWAB —s RO 
| 8063 052440 004737 061512 JSR PC, TIQWFMT 
052444 012704 062030 MOV OTi9PK2,R4 
8065 052450 010465 000000 MOV R4, TSDBCRS) 
8066 052454 004737 016336 JSR PC; CHKTSS 
8067 052460 FORCERROR 232 
052474 103407 BCS 
052476 010001 MOV RL 
8070 052500 NEXT. ERRNO 
8071 052500 232%: ERRDF ERRNO,T198SSR,PKTSSR 


SEQ 0187 


sWRITE FORMAT DATA ag ge HIGH BYTE 


FORM 
sGET WRITE SUBSYSTEM COMMAND PACKET 
SET THE PACK et ADORESS TO EXECUTE 


sWAIT FOR SSR TO SET 

;@@OFORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


-WORD 6811 
-WORD T11986SSR 
-WORD  PKT 


;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG =. 


oO 
o 
m 
wn Po] 
Sn & 


sSETUP PACKET FOR READ STATUS 
;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE rete ar TO EXECUTE 


sWAIT FOR SSR T 

;@@DFORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 812 
«WORD 1193SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


:SET WORDS O 7 EXPD=RECY Bones TESTING) 
GET EXPECTED READ STAT 
sGET RECV READ STATUS 
sSET EXPD WORD #8 TO TEST DATA FIRST 
3GET pty ht Feb be PATTERN 
sGET CURRENT PATTERN 
;SETUP IHER EXPECTED 
IHER =0 


=2 


sCURRENT =0? 

:BR_ IF NO 

iSET EXPO IHER =1 
sSETUP IFMK tage) 
sSET EXPO IFMK =0 
sagt oe #1? 

:B8R IF NO 

; CURRENT =0? 

sB8R_ IF NO 

iSET EXPO IFMK =1 


052504 
052506 012046 
8072 052510 005237 002222 INC FATFLG 
8073 052514 2408: CKLOOP 
052514 104406 ; 
8074 3 Do a Write Syeeretes READ STATUS 
8075 052516 C04737 061330 JSR PC,T19SRD 
8076 052522 012704 062030 MOV @T19PK2,R4 
8077 052526 010465 000000 MOV R4, TSOBCRS) 
8078 052532 004737 016336 JSR PC, CHKTSS 
8079 052536 FORCERROR 
SS2 103407 cs 
8081 052554 010001 oR1 
8082 052556 NEXT .ERRNO 
8083 052556 2528: ERROF ERRNO, T193SSR,PKTSSR 
052556 104455 
560 14 
052562 057674 
052564 012046 
8084 052566 005237 002222 INC FATFLG 
8085 052572 260$: CKLOOP 
052572 104406 
8086 3 If loopback data NOT= data sent Then Print Greer 
8087 052574 004737 061570 JSR PC, TI9SETEXP 
8088 052600 012701 057432 MOV @TI9EXSTA,R1 
8089 012702 061722 MOV @T19BFSTA,R2 
052610 013711 002312 MOV DATA, CR1) 
8091 14 013700 057344 MOV »RO 
809 013703 002312 MOV DAT 
8093 052624 012704 051. IHER.R4 
8094 052630 040411 BIC ° 
32 0 BIT ° 
052634 001403 BEQ 275% 
8097 052636 030403 BIT R4,R3 
001001 
8099 052642 050411 BIS R4,(R1) 
8100 052644 012704 001000 275%: MOV @S1.IFMK,R4 
8101 052650 040411 BIC R4,(R1) 
81 0. BIT 2RO 
8103 001403 BEQ 
8104 052656 030403 BIT R4,R3 
81 001001 
8106 052662 050411 BIS R4,(R1) 
8107 052664 012704 002000 2808: MOV #S1.ICER,R4 


6108 052670 040411 BIC R4,(R1) 


;SETUP ICER EXPECTED 
;SET EXPD ICER =0 
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SEQ 0188 


| 
| 
| 





8109 052672 030400 BIT R4,RO sPREVIOUS =17 | 
8110 052674 001403 BEQ 285% ;6R IF NO } 
6111 052676 030403 BIT R4,R3 : CURRENT =0? 
8112 052700 001001 BNE 285% :6R 
6113 0S2702 050411 BIS R4,CR1) iSET EXPD ICER =1 j 
8114 052704 011100 285$: MOV (R1),RO sGET_EXPD WORD 
611 3 If pravieve TIDENT=1 and current is IIDENT=1 then EXPD= 0 else 1 
8116 052706 012704 004000 MOV @S1.IIDENT,R4 s ILIOENT 
6117 052712 0504 BIS R4,RO ASSUME EXPD=1 
6118 052714 030437 057344 BIT R4, T1OPREV PREVIOUS IIOENT=1? 
8119 052720 001403 BEQ 288% 368R IF NO 
8120 052722 030403 BIT R4,R3 :IS a ad IIDENT=1? 
8121 0527 001401 BEQ 288% :6R IF NO 
8122 0527 BIC R4,R ;SET EXPD=0 
6123 052730 052700 040000 288%: BIS @S1.I2RES,RO IRESV2 EXPD ALWAYS=1 
6124 052734 0527 020000 BIS @51.I1RES,RO fae EXPD BLMAYS*S 
8125 052740 042700 100000 BIC #S1.PARERR,RO PARERR 
8126 0527 032712 100000 BIT @S1.PARERR,(R2) iIS PARERR SET IN RECV? 
6127 052750 ©¢01402 BEQ 290% R IF NO 
8128 7 0527 100000 BIS #S1.PARERR,RO 3SET IN EX 
6129 052756 010011 290%: MOV RO,CR1 sSETUP FINAL EXPD IN 
8130 052760 016261 000002 000002 MOV 2(R2),2CR1) 3SET EXPD WORD @9 = RECV. (NOT TESTING) 
6131 7 5000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
86132 052770 012701 061702 MOV @T19BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
6133 774 012702 057412 MOV @T19EXP ,R2 sEXPD ADDRES 
6134 053000 012703 24 MOV #20..R sNUMBER OF BYTES TO COMPARE 
8135 053004 737 011500 JSR PC ,CKMSG2 HEXPD EQUAL RECV? 
8136 053010 FORCERROR 302$,NOTSSR ;980 
8137 103404 BCS 310 ;BR IF YES 
8138 053022 NEXT. ERRNO 
8139 3022 3028: ERRHRD ERRNO, 7T198CMP ,.MSGLOOP sREPORT ERROR 
053022 1044 TRAP CSERHRD 
53024 001455 -WORD 813 
053026 060721 -WORD T198CMP 
30. 01 -WORD MSGLOOP 
8140 053032 310$ CKLOOP ;LOOP ON ERROR, IF FLAG SET 
053032 104406 TRAP CSCLP1 
6141 3 Do a Write Sub onterr” Write Misc to Reset T Status F-FLOPS 
8142 053034 004737 061350 JSR “Tt Beh. FIF sSETUP PKT FOR WRITE MISC Reset STATUS 
8143 053040 012704 062030 MOV ;GET WRITE SUBSYSTEM COMMAND PACKET 
8144 053044 010465 000000 MOV Ra TsbBCRS) iSET THE PACKET ADORESS TO EXECUTE 
8145 053050 004737 016336 JSR PC,CHKTSS sWAIT FOR SSR TO SET 
8146 053054 FORCE Te oy ERROR IF FORCER=1 
8147 053070 103407 BCS 330 ;6R IF CARRY SET (GOOD RETURN) 
6148 053072 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
6149 3074 NEXT .ERRNO 
8150 053074 322%: ERRDF ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053074 104455 TRAP CSERDF 
053076 001456 4 814 
S31 057636 -WORD T192SSR 
053102 012046 -WORD PKTSSR 
8151 0531 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
8152 053110 330$ CKLOOP sLOOP ON ERROR, IF FLAG SET 
3110 104406 , TRAP C$CLP1 
8153 : Do a Write Sveoveten READ STATUS 
6154 053112 004737 051330 JSR PC,.T19SRD ;SETUP PACKET FOR READ STATUS 
8155 053116 012704 062030 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
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8156 053122 010465 000000 MOV R4, TSDBCRS) 
8157 053126 004737 016336 JSR PC, CHKTSSR 
8158 053132 FORCERROR 34 
8159 053146 103407 BCS 350% 
| 160 053150 010001 Vv RO,RL 
8161 053152 NEXT.E 
8162 053132 342%: ERRDF ERRNO,T193SSR,PKTSSR 


053160 012046 
8163 053162 005237 002222 INC FATFLG 
6164 053166 350%: CKLOOP 

053166 104406 
8165 053170 004737 061570 JSR re TLI9SETEXP 
6166 053174 012701 057432 MOV TISEXSTA,R1 
8167 012702 061722 MOV ot L9BFSTA,R2 
61 011211 MOV 1) 
8169 053206 C42711 002000 BIC #S1.ICER,(R1) 
8170 05 042711 001000 BIC @S1.IFMK,CR1) 
6171 053216 042711 000400 BIC #S1.IHER,(R1) 
6172 053222 016261 000002 000002 MOV 2cR2), 2cRi) 
8173 053230 005000 CLR 
6174 053232 012701 061702 MOV OTLSBFR, Ri 
6175 053236 012702 057412 MOV @T19EXP ,R2 
6176 053242 012703 000024 MOV #20. ,R3 
6177 053246 004737 011500 JSR PC ,CKMSG2 
6178 053252 FORCERROR 362% ,NOTSSR 
6179 053262 103404 BCS 370 
8180 053264 NEXT. ERRNO 
8181 053264 362$: ERRHRD ERRNO,T197CMP,MSGSTAT 

053264 104456 

te) 001460 

053270 0606335 

053272 012350 
6162 053274 370%: CKLOOP 
e103 053274 104406 
61864 053276 013737 002312 057344 MOV DATA, T19PREV 
6185 053504 013703 002316 MOV TSTPTR, 
6186 053310 020327 003062 CMP R3, @TBLEND 
6187 053314 103002 BHIS 400% 
6188 053316 000137 052312 JMP 200% 
81869 053322 4008: 
8190 
6191 053322 ENDSUB 

053322 

104403 

8192 
6193 053324 005737 002222 TST FATFLG 
8194 053330 001402 BEQ 460% 
86195 053332 004737 017202 JSR PC ,CKDROP 


SEQ 0189 


sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 
ERROR IF FORCER=1 
RETURN) 


3s 890F ORCE 
:6R IF CARRY SET (GOOD 
iSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 815 
-WORD 1193SSR 
' 


-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


CsCLP1 
sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
sGET EXPECTED READ STATUS 
GET RECV READ STATUS 


IF 
sSET EXPO IWHER =0 
sSET EXPD WORD #9 = RECV (NOT TESTING) 
;HIGH RECV ADDRESS FOR CKMSG2 
;LOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 
sNUMBER OF BYTES An COMPARE 
3EXPD EQUAL RECV? 


:aa0 
;BR IF YES 


sREPORT ERROR 
TRAP CSERHRD 
-WORD 816 
-WORD T197CMP 
MSGSTAT 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sSETUP PREVIOUS DATA FOR EXPD CALC. 
sRESTORE CURRENT TSTBLK POINTER 
sEND OF TSTBLK? 

:B8R IF YES 

300 NEXT TSTBLK PATTERN 


s4///11111144/ END SUBTEST ////////7/7/ 
L10067: 
TRAP CsESUB 
sANY FATAL ERRORS ? 
IF NOT 


:BRANCH 
sTRY TO OROP THE UNIT 
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6250 053410 103407 
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015774 


002222 
061660 
010662 


TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


-SBTTL TEST 68: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 


*¢ 
; TEST 8: SUBTEST 2: 
3 
SUBTEST DESCRIPTION: 


This subtest verifies the Read/Write data 1 sr pom. 
The Read/Write data signals are IR<7:0> and 
respectively. 


TEST STEPS: 


soy ~ ALL TEST PATTERNS IN TSTBLK TABLE 


Write to TSSR register to soft initialize the controller | 
Do WRITE ae RISTICS to check for Extended Features Switch 
If Extended Features Hardware Switch Clear then: 
Do Write Euboxe stem Write Miscellaneous to Set Extended Features. 
oe to select reserved unit 7 and setup BUFFER 
worte yy ITE NPR to set tape direction out and Loopback 
© set loopback and tape direction OUT 
WRITE FIFO eh vege. count equal to 1 and Tape direction OUT 
READ FIFO wit direction on OUT to load tape out write latch 
WRIT to ocopback and tape direction IN 
wedi FIFO with "eae count eguet to 1 and Tape direction IN 
trobe loopback data into FI 
De’ a READ FIFO with tape direction IN to read data 
If Date read from FIFO NOT= be Date sent Then Print Error 
Do a Write Subsystem READ STATUS 
If Input Re NOT=1 Then Print Error 
If Rkout Ready NOT=O0 Then Print Error 
a Date In Miss NOT=0 Then Print Error 


BGNSUB ; s4444444 4444S ee ne S4AAGAGAAGGA 
"TRAP cseSuUB 


3 pore be 
H 
«+ 
“mm 
af 
> 
oO 


i. Write to TSSR register to soft initialize the controller 
JSR PC. SOFINIT sWRITE TO TSSR TO Ly hy INITIALIZE 
BCS 10$ ;BR IF SOFT INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF ERRNO,SFIERR,SFIMSG {DEVICE FATAL DURING INIT 
TRAP CSEROF 
a 816 
-WORD SFIERR 
D0 SFIMSG 
; Do WRITE 5 RORACTERISTICS to check for Extended Features Switch 
108: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
MOV @T19PACKET ,R4 iGET THE ADDRESS OF COMMAND PACKET 
JSR PC,.WRTCHR ;00 WRITE CHARACTERISTICS COMMAND 
FORCERROR 12$ s8@8DFORCE ERROR IF FORCER=1 
BCS 15% :BR IF CARRY SET (GOOD RETURN) 


MOV RO,R1 ;SAVE CONTENTS OF TSSR 
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8252 053414 
6253 Seeere 


6271 053522 
S22 


8280 053564 

82861 053570 
053570 

8282 

8283 

8284 

8285 053572 

8286 053576 

8287 053602 

8288 053610 

8289 

6290 053614 

8291 053620 


8292 053624 
8293 053630 


TESTS 


012703 
012337 
042737 
010337 
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002222 


061702 
000200 
061532 
062030 


000000 
016336 


002222 


061660 
010662 


002222 


000012 


002312 


SEQ 0191 


NEXT .ERRNO 
128: ERRDF ERRNO,T19SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. 817 
-WORD T19SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
15%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
; If Extended Features Hardware Switch Clear then: 
3 Do Write Subsystem Write Miscellaneous to Set 5 Sten Features. 
MOV @T19BFR,R1 sMESSAGE BUFFER 
BIT @x2. EXTF, xST2C(R1) J EXTENDED FEATURES SuITCH SET? 
BNE 30% 36R IF YES 
JSR “Ft T19SEXT + SETUP PACKET FOR WRITE MISC INVERT 
MOV @Ti9PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 22% Te a ERROR IF FORCER=1 
6cs 30% ;6R IF CARRY SE T (GOOD RETURN) 
RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
22%: ERRDF ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsERDF 
‘ 818 
-WORD 1192SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
30%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 Do WRITE CHARACTERISTICS to select reserved unit 7 
MOV @T19PACKET ,R4 :GET THE Aooke SS OF COMMAND PACKET 
JSR PC CURTCHR ;00 WRITE CHARACTERISTICS C 
FORCERROR 42$ joser cess ERROR IF FORCER=1 
BCS 50$ F CARRY T (GOOD RETURN) 
MOV RO,R1 eave CONTENTS” OF TSSR 
NEXT .ERRNO 
42$: ERRDF ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 819 
-WORD T19SSR 
-WORD PKTSSR 
INC FATFLG Hy FATAL ERROR FLAG 
50$: CKLOOP ;LOOP ON ERROR, IF FLAG oer nan os 


; REPEAT FOR ALL_TEST PATTERNS IN TSTBLK TABLE 
MOV @TSTBLK.R3S sGET ae PATTERN ADDRESS 


100$: MOV (R3)+, DATA GET A TEST PATTERN 

BIC 6t0<377>, DATA ;DATA IS BYT 

MOV R3, TSTPTR ; SETUP CURRENT ,TSTBLK POINTER 
3 Do a WRITE NPR to set loopback ona a on OUT 

MOV ONP . OUT, RO 3SET TAPE OIRECTION OUT 

BIS @NP LOOP ,RO 3SET LOOPBACK 

JSR PC, T19SNPR ;SETUP T19PK2 FOR WRITE NPR 


MOV @T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
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8294 053634 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET °c TO EXECUTE 
8295 053640 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO } 
8296 053644 FORCERROR 102% a ERROR IF FORCER=1 } 
8297 053660 103407 6cS 195$ 3;BR IF CARRY SET (GOOD RETURN) | 
6298 053662 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR | 
6299 053664 NEXT . ERRNO 
8300 053664 1028: ERROF ERRNO,1T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053664 104455 TRAP CSEROF 
053666 001464 -WORD 820 
057741 -WORD 1194SSR 
053672 012046 7 PKTSSR 
6301 053674 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 
8302 053700 105%: CKLOOP ;L00P ON ERROR, IF FLAG SET 
104406 TRAP CSCLPi 
8303 3 Do ea WRITE FIFO with byte count 1 to 1 and Tape direction OUT 
8304 053702 012700 000001 MOV #1,R0 SURITE 1 1 BYT 
8305 053706 012701 002312 MOV @DATA,R1L sFIFO WRITE DATA ADORESS 
8306 053712 004737 061436 JSR PC, TIOWFIF ;SETUP T19PK2 FOR WRITE FIFO 
8307 053716 C1i2704 062030 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
8308 053722 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
8309 053726 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 
6310 053732 FORCERROR 107$ ;880FORCE ERROR IF FORCER=1 
6311 053746 103407 6cS 110% ;B8R IF CARRY SET (GOOD RETURN) 
86312 053750 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
8313 053752 NEXT . ERRNO 
6314 053752 107$%: ERRDF ERRNO, T195SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
053752 104455 TRAP CsEROF 
053754 001465 -WORD 821 
053756 060004 -WORD T195SSR 
053760 012046 -WORD PKTSSR 
8315 053762 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6316 053766 1108: CKLOOP sLOOP ON ERROR, if FLAG SET 
053766 104406 TRAP CSCLP1 
8317 3 Do a READ FIFO with tape direction OUT to load t out write letch 
8318 053770 012700 000001 MOV #1,R0 ;SET READ BYTE COUNT 
8319 053774 004737 061416 JSR PC, TISRFIF : SETUP T19PK2 FOR READ FIFO 
8320 054000 012704 062030 MOV @T19PK2,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 
8321 054004 010465 000000 MOV R4, TSDBCRS) iSET THE PACKET ADDRESS TO EXECUTE 
8322 054010 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
8323 054014 FORCERROR 122% poserome ERROR IF FORCER=1 
8324 054030 103407 Bcs 130% ;8R IF CARRY SET (GOOD RETURN) 
8325 054032 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
8326 054034 NEXT .ERRNO 
6327 054034 1228: ERRDF ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054034 104455 TRAP CSEROF 
054036 001466 -WORD #22 
054040 060050 a T196SSR 
054042 012046 PKTSSR 
8328 054044 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
8329 054050 1308: CKLOOP sLOOP ON ERROR, IF FLAG SET 
054050 104406 TRAP CSCLP1 
8330 3 Be. e WRITE NPR to set loopback -_ @ See die direction IN 
8331 054052 005000 CLR RO OUT TO SET TAPE DIRECTION IN 
8332 054054 052700 000040 BIS @NP .LOOP ,RO cee L CK 
8333 054060 004737 061372 JSR PC, TI9SNPR san TUP T19PK2 FOR WRIT 
8334 054064 012704 062030 MOV @T19PK2,R4 ;GET NRITE SUBSYSTEM COMMAND PACKET 
8335 054070 010465 000000 MOV R4, TSDBCRS) sSET IME PACKET ADDRESS TO EXECUTE 
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8336 054074 
8337 054100 


6338 114 
8339 054116 
8340 20 
6341 054120 
120 


4 
8356 054216 


8376 326 
6377 054334 


004737 
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016336 


002222 


002222 


000001 
061416 
062030 


000000 
016336 


000002 


142%: 


162%: 


182%: 


190%: 


TEST 6: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 


JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 142% ,SO0F ORCE ERRO ERROR IF FORCER=1 
BCS 150 :BR IF CARRY SET (GOOD RETURN) 
HOV ~ RO,R1 ;SAVE CONTENTS OF TSSR 
ERRDF ERRNO,T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP  CSEROF 
.WORD 6823 
- WORD T194SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET tana 
Do a wey FIFO with byte count 1 to 1 and Tape Seema tan IN 
MOV RO SGRrTe 1 BYTE 
MOV SOATA.RA ‘FIFO WRITE DATA ADORESS 
JSR PC, TISWFIF ;SETUP T19PK2 FOR WRITE FIFO 
MOV @Ti9PK2,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) 3SET THE PACKET ADORESS TO EXECUTE 
JSR »CHKTS ;WAIT FOR SSR TO SET 
FORCER 162$ 1 880F ERROR IF FORCER=1 
BCS 1708 :@R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERROF ERRNO, T195SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP  CSEROF 
.WORD 6824 
‘WORD T195SSR 
“WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR F 
CKLOOP ;LOOP ON ERROR, IF tBCAG SET ue 


Do ea READ FIFO with tape direction IN to read date 
If Date read from FIFO NOT= to Sete sent eee Print Error 


MOV »RO sSET READ BYTE COUNT 
JSR PC, TISRF IF sSETUP T19PK2 FOR READ F 
MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) sSET_THE PACKET ADORESS TO EXECUTE 
JSR PC,.CHKTS sWAIT FOR SSR TO SET 
FORCERROR 8 s;@@0FORCE ERROR IF FORCER=1 
Bcs 190% 36R IF CARRY SET (GOOD RETURN) 
Vv RO,R1 iSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
-WORD #825 
— T196SSR 
PKTSSR 
FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG e. escups 
JSR PC, TLI9SETEXP SET WORDS 0-7 EXPD=RECV (NOT TESTING) 
MOV @TI9EXSTA,R1 sGET EXPECTED READ STATUS 
MOV 48 Da sGET v STAT 
MOV CR1)- sSET E 3s = DAT 
MOV otras, 2cRi) sSET EXPD WORD @9 2 Recy (NOT TESTING) 
CLR RO ;HIGH RECV ADORESS FOR CKMSG2 


SEQ 0193 
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TEST 68: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 
! 


8378 054336 
6379 342 


012701 
012702 
012703 
004737 


103404 


061330 
062030 


000000 
016336 


2028: 


2108: 


2128: 


2208: 


232%: 


240%: 


MOV @T19BFR,R1 
MOV 


@T19EXP ,R2 
MOV #18. .R3 
JSR PC. 
FORCERROR 202% ,NOTSSR 
Bcs 210% 
NEXT 


. ERRNO 
ERRHRD ERRNO, T199CMP ,MSGSUB 


CKLOOP 


Do a —. Subsystem READ STATUS 


sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3880 
36R IF YES 


sREPORT ERROR 
TRAP CSERHRD 
-WORD 6826 
-WORD T199CMP 
-WORD MSGSUB 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 


NOT=1 Then Print Error 


If Input ady 
If Output Re NOT=0 
4 Dete In Rigs, NOT=0 


NEXT . ERRNO 
ERROF ERRNO,T193SSR,PKTSSR 


INC FATFLG 


JSR PC. TI9SETEXP 
MOV @TISEXSTA,R1 


MOV CR2)¢,CR1ID« 

MOV (r2),¢ 

BIS #S2. .CR1) 

BIC #52. CR) 

BIC @S52.0IM, (Ri) 

CLR RO 

MOV OT19BFR,R1 

MOV OT19EXP.R2 

MOV €20..R3 

JSR PC,C 
232¢,NOTSSR 


FORCERROR 
ecs 240% 
NEXT . ERRNO 

ERRHRD ERRNO, T196CMP ,MSGSTAT 


Then Print Error 
Then Prine Error 


T FOR READ STATUS 
STEM COMMAND P 


ACKET 

CKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

FORCER=1 


or ERROR IF 

s6R IF C SET (GOOD RETURN) 

iSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 6827 

-WORD 1193SSR 

-WORD PKTSSR 

sSET FATAL ERROR FLAG 

sLOOP ON ERROR, rs". 


TRAP CSCLP1 
sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
XPE STATUS 


c S FOR CKMSG2 
sLOW RECV ADORESS FOR CKMSG2 
sE ADORE 
;NUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 

7860 
:BR IF YES 


sREPORT ERROR 


;LOOP ON ERROR, IF FLAG Ser 





| 
| 
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TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 





8420 

6421 

e438 054562 FORCEXIT 255% 7820 

6424 054572 013703 002316 MOV TSTPTR,RS iRES TORE CURRENT TSTBLK POINTER 

6425 054576 020327 003062 CMP R3, @TBLENOD sEND OF TSTBLK? 

8426 054602 103002 BHIS 255% :8R IF YES 

6427 054604 000137 053576 JMP 100% +00 ANOTHER TSTBLK PATTERN 

6428 054610 255%: 

8430 054610 ENOSUB t4/4444111477 END SUBTEST 4/74/48 4447 
054610 10070: 

9431 054610 104403 TRAP CsESuB 

8432 054612 005737 002222 TST FATFLG sANY FATAL ERRORS ? 

6433 054616 001402 BEQ 260% sBRANCH IF NOT 

6434 054620 004737 017202 JSR PC .CKDROP sTRY TO DROP THE UNIT 

6435 054624 2608: 

Ht] 

rt] -SBTTL TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 

€440 306 

B441 3s TEST 8: SUBTEST 3: 

bass } SUBTEST DESCRIPTION: 

B485 : This subtest verifies the Write Strobe ay pe peth 

B286 3 can strobe dete from the FIFO to the Deta lines. 

8447 3 The signel IRESVS drives IWSTR (write strobe) to write 

ee 3 date from the FIFO to the tepe date out latch. 

8450 ; TEST STEPS: 

seat 3 

6433 : REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

e4ss ; gette $e TSSR CHARACTERISTE te soft initialize the controller 

C436 3 Do WR ISTICS to check for Extended Features Switch 

6457 3 If ext ag Switch Cleer then: 

e458 3 Do Write tet Write Miscellaneous to Set Extended Features. 

8459 3 Be ayy A — cs ay ggtest et tone direct! and gute setup plo 

6460 e Wri ates NPR ge irection oopbeck 

8461 ; Do @ WRITE WR to eet and t “Girect Ten ouT 

poss | 3 Do e WRITE F T to set ant St 

te i BS SARE Saeaar'S Sek seats coved ge ones Uses Sirestiet heen 

a ea 2 

0465 : Do 2 WRITE FORMAT S5. Set IRESVSeeszueTR = eae Comet 

CAR6 3 Do e WRITE 1 tepe direction IN 

8467 3 0 — FIFO with byte coun ¥ to 1 and Tepe direction IN 

G469 : De o READ FIFO with tape direction IN to read date 

8470 3 If Dete reed from FIFO NOT= to Dete sent Then Print Error 

p oft 3 END 

6473 0546246 : BGNSUB S/ISIIEELEETE BEGIN SUBTEST ////000001 
OS8h26 78.3: 


SEQ 0195 
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TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 


054624 104402 


8476 054626 004737 

103405 

8478 054634 010001 
0546 


4 
S x 
So 
4 
ov 
cy 


94 054724 032761 


—-— — CC 
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015774 


002222 


061702 
000200 


061532 
062030 
000000 


016336 


002222 


061660 
010662 


000012 


i 
5$: 


12$: 


22%: 


42%: 


TRAP C$6SUB 
Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT sWRITE TO TSSR TO Ly INITIALIZE 
BcS 10% en IF SOFT INIT OKAY 


MOV RO,R1 SAVE CONTENTS OF TSSR 
ERRDF ERRNO,SFIERR,SFIMSG + EVICE FATAL DURING INIT 
TRAP CSEROF 
-WORD 828 
-WORD SFIERR 
-WORD SFIMSG 
+e =, ae to check for Extended Features Switch 
CLR FLG ;CLEAR FATAL ERROR FLAG 
MOV OTIOPACKET, R4 ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC, WRTCHR 3:00 WRITE CHARACTERISTICS COMMAND 
FORCERROR 12$ s@@O0FORCE ERROR IF FORCER=1 
6cS 15% ;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO,T19SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WOR 829 
-WORD T19SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
If Extended Features Hardware Switch ag then: 
Do Write Subsystem Write Miscellaneous to Set Extended Features. 
MOV @T19BFR,R1L :MESSAGE BUFFER ADORESS 
BIT @X2.EXTF,XST2(R1) } EXTENDED FEATURES SWITCH SET? 
BNE 30% ;8R IF YES 
JSR PC, T19SEXT ;SETUP PACKET FOR ears MISC P eneisd| 
MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 22$ ;8@0FORCE ERROR IF FORCER=1 
6cS 30$ :BR IF CARRY SET (S08 RETURN) 
MOV RO,R1 :SAVE CONTENTS OF TSSR 


NEXT .ERRNO 
ERROF ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP — 


8 
WORD 1192SSR 
-WORD PKTSSR 


INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOCOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Do WRITE Pe eye Mh oy Ha to select reserved unit 7 
MOV @T19PACKET ,R4 ;GET THE ROORES § OF COMMAND PACKET 
JSR PC,WRTCHR :00 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42$ ;8@0FORCE ERROR IF FORCER=1 
BCS 50$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 


SEQ 0196 


a — 
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SEQ 0197 
TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 
055044 001477 -WORD 831 
055046 057573 -WORD 1T19SSR 
| 055050 012046 -WORD PKTSSR 
6515 055052 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
8516 055056 50$: CKLOOP ;LOOP ON ERROR, IF FLAG T. 
9s17 055056 104406 TRAP CSCLP1i 
8518 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
8519 055060 012703 002752 MOV @TSTBLK,R3 3;GET a iet PATTERN ADDRESS 
8520 055064 012337 002312 1008; MOV (R3)+,DA ATA iGET A TEST PATTERN 
8521 055070 042737 177400 002312 BIC @tC<377>, DATA sDATA IS BYTE 
6522 055076 010337 002316 MOV R3, TSTPTR Se gle got re POINTER 
6523 ’ Do a WRITE NPR to set loopback and Sogo 2 
6524 055102 012700 000100 MOV ONP .OUT ,RO sSET TAPE ' DIRECTION OUT 
8 0 052700 BIS @NP .LOOP, ;SET LOOPBACK 
8526 055112 004737 061372 JSR PC. T19SNPR ;SETUP T19PK2 FOR WRITE NPR 
6527 055116 012704 062030 MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
8528 0551 010465 MOV R4,TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
055126 C04737 016336 »CHKTSSR ;WAIT FOR SSR TO SET 
8530 0551352 FORCERROR 1 ;@@DFORCE ERROR IF FORCER=1 
6531 055146 103407 BCS 0s$ ;BR IF CARRY SET (GOOD RETURN) 
8 055150 010001 MOV O.R ;SAVE CONTENTS OF TSSR 
8533 055152 NEXT .ERRNO 
6534 055152 1028: ERROF ERRNO, T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
055152 104455 TRAP CSEROF 
055154 00 , 32 
055156 057741 -WORD 1194SSR 
055160 012046 -WORD PKTSSR 
8535 055162 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
8536 055166 105% CKLOOP ;LOOP ON ERROR, IF FLAG SET 
055166 104406 TRAP CSCLP1 
8537 3 Do a WRITE FORMAT to set IRESV3==>IWSTR = 
6538 055170 012700 000002 MOV @wF .I3RES,20 ;IR EevSs2>TWSTRe1 
8539 055174 004737 061512 JSR PC, T19WFMT SETUP TOPK2 FOR WRITE FORMAT 
8540 055200 012704 062030 MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
8541 055204 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
6542 055210 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
8543 055214 FORCE ;@@0FORCE ERROR IF FORCER=1 
055230 103407 BCS 20% 3;BR iF CARRY SET (GOOD RETURN) 
6545 055232 010001 MOV 0,R1 ;SAVE CONTENTS OF TSSR 
8546 5234 NEXT .ERRNO 
6547 055234 112$: ERROF ERRNO, T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055234 104455 TRAP CSERDOF 
055236 001501 -WORD 833 
240 -WORD 1198SSR 
055242 012046 -WORD wKTSSR 
8548 055244 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6549 055250 120$ CKLOOP ;LOOP ON ERROR, IF FLAG SET 
S250 104406 TRAP CSCLPi1 
8550 ; Do a WRITE FIFO with byte court equal to 1 and Tape iitenenion OUT 
6551 055252 012700 MOV #1,RO ;WRITE 1 BYTE 
8552 5256 012701 002312 MOV @DATA,R1 sFIFO WRITE DATA ADDRESS 
8553 055 004737 061436 JSR PC, TI9SWFIF ;SETUP T19PK2 FOR WRITE FIFO 
6s 5 012704 062030 MOV @T19PK2 ,R4 3;GET warte SUBSYSTEM COMMAND PACKET 
86555 055272 010465 MOV R4, TSOBCRS) ;SET THE PACKET ngeates TO EXECUTE 
8556 055276 004737 016336 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 
8557 055302 FORCERKOR 13, s@@DFORCE ERROR IF FORCER=1 
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TEST 6: SUBTEST 3: LOOPBACK WRITE STROBE TEST 


6558 055316 103407 
344 055320 010001 


8 
6561 132$: 
104455 


001502 
060004 


002222 


061512 
062030 


000000 
016336 

1528: 
002222 


000002 
061512 
062030 
000000 


016336 
172$: 


002222 


000040 
061372 
062030 
000000 


016336 
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BcS 140$ ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 s;SAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF ERRNO,T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 834 
-WORD T195SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG = 

TRAP CSCLP1 


e. ea WRITE FORMAT to set IRESV3==>IWSTR = 0 
CLR RO ;SET A> Fon Unite F 


JSR PC, TISWFMT +i TOPK2 FOR WRITE FORMAT 

MOV @T19PK2 ,R4 3GET ware messes COMMAND PACKET 

MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

JSR PC ,,CHKTSSR ;WALT FOR SSR TO SET 

FORCERROR 152$ s;@@OFORCE ERROR IF FORCER=1 

BCS 160$ :BR IF CARRY SET (GOOD RETURN) 

ee E a sSAVE CONTENTS OF TSSR 

ERRDF ERRNO,T198SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
- WORD S 
-WORD 11986SSR 
- WORD TS 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 

Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 

MOV OwF .ISRES,RO ; IRESV3==>IWSTR=1 

JSR PC, T19WFMT sSETUP TOPK2 FOR WRITE FORMAT 

MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

JSR »CHKTS ;WAIT FOR SSR TO SET 

FORCE ;@@0FORCE ER ~ IF FORCER=1 

BCS 160$ :BR IF CARRY SET (GOOD RETURN) 

MENT + a sSAVE CONTENTS OF TSSR 

ERROF ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 836 
-WORD 1198SSR 
-WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Do a WRITE NPR to set loopback and t direction IN 
CLR RO ;CLR .OUT TO SET TAPE DIRECTION IN 
BIS @NP .LOOP ,RO ;SET LOOPBACK 


JSR PC, T19SNPR ;SETUP T1i9PK2 FOR WRITE NP 

MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) iSET THE rs ADDRESS TO EXECUTE 
JS »CHKTSS sWAIT FOR SSR TO SET 

FORCERROR 1 ;@@DFORCE ERROR IF FORCER=1 
bcs ;BR IF CARRY SET (GOOD RETURN) 


SEQ 0198 





prcphe® S® 
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010001 
182%: 


002222 
1908: 


2028: 
002222 


000001 
061416 
062030 


000000 
016336 


2228: 


000002 


0 
8641 055776 


012703 
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SEQ 0199 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 837 
-WORD 1194SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG =. cocups 
Do a WRITE FIFO with byte count equal to 1 and Tape eR. IN 
MOV #1,RO0 sWRITE 1 BYTE 
MOV TA.R iFIFO WRITE DATA ss 
JSR PC, TISWFIF ;SETUP T19PK2 FOR WRITE FIFO 
MOV @T19PK2,R4 3;GET ITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR HKTSSR sWAIT FOR SSR TO SET 
FORCERROR 202$ ;@@DFORCE ERROR IF FORCER=1 
BCS 21 ;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T195SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 838 
-WORD 1T195SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Do a READ FIFO with tape direction IN to ad data 
MOV RO ;SET READ "SyT E COUNT 
JSR PC, TISRFIF sSETUP T19PK2 FOR READ FIFO 
MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR »CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 222$ ;8@80FORCE ERROR IF FORCER=1 
BCS 230 3;6R IF CARRY SET (6000 RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO,1Ti96SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 839 
-WORD 1196SSR 
-WORD PKTSSR 
FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
a CSCLP1 
If Date read from FIFO NOT= to Data sent Then Print Erro 
JSR PC, TI9SETEXP 3:SET *SORDS 0-7 EXPD=RECV (NOT TESTING) 
MOV @T19EXSTA,R1 iGET EXPECTED READ STATUS 
MOV @T19BFSTA,R2 sGET RECV READ STA TUS 
MOV DATA,CR1) ;SET EXPD WORD @8 = DATA 
MOV 2(R2),2(R1) sSET EXPD WORD @9 = RECV CNOT TESTING) 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV @T19BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 
MOV @T19EXP ,R2 sEXPD ADDRESS 
MOV #18. ,R3 sNUMBER OF BYTES TO COMPARE 





L 





' 
! 
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| SEQ 0200 
TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 
8642 056002 004737 011500 JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 
8643 056006 FORCERROR 242% ,NOTSSR 3 | 
8644 056016 103404 BCS 250% 3;BR IF YES 
8645 056020 NEXT .ERRNO i 
8646 056020 2428: ERRHRD ERRNO, T19WSTR,MSGSUB sREPORT ERROR j 
056020 104456 TRAP CSERHRD 
056022 001510 -WORD 840 
056024 061073 -WORD Ti9WSTR 
056026 013742 -WORD MSGSUB 
8647 056030 250$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
056030 104406 TRAP CSCLPi 
8648 
8649 
8650 056032 FORCEXIT 255% :880 
8651 056042 013703 002316 MOV TSTPTR,R3 ;RESTORE — TSTBLK POINTER 
8652 056046 020327 003062 CMP R3,@TBLEND ;END OF TSTBLK? 
8653 056052 103002 BHIS 255% 3;8R IF YES 
6654 056054 000137 055064 JMP 100$ 300 ANOTHER TSTBLK PATTERN 
sees 056060 255%: 
8657 056060 ENDSUB 3///1/111////7 END SUBTEST /////////7/ 
056060 L10071: 
ease 056060 104403 TRAP CsESUB 
8659 056062 005737 002222 TST FATFLG ;ANY FATAL ERRORS ? 
8660 056066 001402 BEQ 260$ ;BRANCH IF NOT 
8661 056070 004737 017202 JSR PC,CKDROP ;TRY TO DROP THE UNIT 
8662 056074 2608: 
seer .SBTTL TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 
8665 soe 
8666 ; TEST 8: SUBTEST 4: 
8667 3 
aeee ; SUBTEST DESCRIPTION: 
3 
8670 3 This subtest verifies the Read Strobe loopback path 
8671 3 can strobe the data from the Data lines to the FIFO. 
8672 ; The signal IRESV4 drives IRSTR pened strobe) to write 
8673 3 from the data lines to the FIFO 
8674 3 
8675 ; TEST STEPS: 
8676 3 
8677 3 
8678 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
8679 ; BEGIN . 
86 : Write to TSSR register to soft initialize the controller 
8681 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
868 3 If Extended Features Hardware Switch Clear then: 
8683 ; Do Write Ssevetes Write Miscellaneous to Set Extended Features. 
86 ; Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
8685 3 Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
8686 3 Do a WRITE NPR to set 1 ack and t direction OUT 
8687 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 
8688 3 Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
8689 3 Do a READ FIFO with Sage ae vestion = to load tape out write latch 
86 3 Do a WRITE NPR to se direction IN 
8691 3 Do a WRITE FORMAT = Rt RESV4s>SIRS R = 0 to write loop data to FIFO 
! 
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SEQ 0201 
TEST 6: SUBTEST 4 LOOPBACK READ STROBE TEST 
8692 F Do a oe FORMAT to set IRESV4==>IRSTR = 1 | 
8693 : (to strobe loopback data into FIFO.) 
8694 3 Do a READ FIFO with tape direction IN to read data ) 
8695 ; If Data read from FIFO NOT= to Date sent Then Print Error 
pots J 3 END ! 
gee 
8698 056074 BGNSUB 3//////////7// BEGIN SUBTEST /////////7/ 
056074 78.4: 
056074 104402 TRAP C$BSUB 
é Write to TSSR register to soft initialize the controller 
8700 056076 $: 
8701 056076 004737 015774 JSR PC,SOFINIT sWRITE TO TSSR TO 7 wh INITIALIZE 
8702 056102 103405 BCS 10$ :BR IF SOFT INIT OKAY 
8703 056104 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
8704 056106 ERROF  ERRNO,SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
056106 104455 TRAP CSERDF 
056110 001510 -WORD 840 
056112 003652 -WORD SFIERR 
056114 C12034 «WORD SFIMSG 
8705 3 Do —,. ee to check for Extended Features Switch 
8706 056116 005037 002222 10$: CLR TFLG ;CLEAR FATAL ERROR FLAG 
8707 056122 012704 061660 MOV OTIOPACKET, R4 ;GET THE ADDRESS OF COMMAND PACKET 
8708 056126 004737 019662 JSR PC,WRTCHR 3:00 WRITE CHARACTERISTICS COMMAND 
8709 056132 FORCERROR 12$ ;@8D0FORCE ERROR IF FORCER=1 
8710 056146 103407 6CcS 15$ :BR IF CARRY SET (GOOD RETURN) 
8711 056150 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
8712 056152 NEXT .ERRNO 
6713 056152 12$: ERRDF  ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056152 104455 TRAP CSEROF 
056154 001511 -WORD 841 
056156 057573 -WORD T19SSR 
056160 012046 -WORD PKTSSR 
8714 056162 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
8715 056166 15%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
056166 104406 TRAP CSCLP1 
86716 3 If Extended Features Hardware Switch Clear then: 
8717 3 Do Write SOevgeen Write Meee oceans to Set Extended Features. 
8718 056170 012701 061702 MOV #T19BFR MESSAGE BUFFER ADDR 
8719 056174 032761 000200 000012 BIT @Xe2. exie. xST2C(R1) } EXTENDED FEATURES SWITCH SET? 
8720 056202 001026 BNE 30% ;BR IF YES 
8721 056204 004737 061532 JSR re T19SEXT sSETUP PACKET FOR WRITE MISC — 
8722 056210 012704 062030 MOV OTi9PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
8723 056214 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
8724 056220 004737 016336 JSR PC. CHKTSSR ;WAIT FOR SSR TO SET 
8725 056224 FORCERROR 22$ ;@@0FORCE ERROR IF FORCER=1 
8726 056240 103407 BCS 30% 38R IF CARRY SET (GOOD RETURN) 
8727 056242 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
8728 056244 NEXT .ERRNO 
8729 056244 22%: ERROF ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056244 104455 TRAP CSEROF 
056246 001512 -WORD 842 
056250 057630 -WORD 1192SSR 
056252 012046 -WORD PKTSSR 
8730 056254 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
8731 056260 30%: CKLOOP sLOOP ON ERROR, IF FLAG SET 


056260 104406 TRAP CSCLP1 
8732 3 Do WRITE CHARACTERISTICS to select reserved unit 7 
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8733 056262 
8734 056266 


506 

056510 
056512 
8773 056514 
8774 056520 





012704 
004737 
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061660 
010662 


002222 


002222 


000001 
061512 
062030 


000000 
016336 


002222 


002312 


423%: 


50%: 


MOV 


JSR 
FORCERR 
BCS 


MOV 
NEXT .ERRNO 


ERROF 


INC 


CKLOOP 


@TLSPACKET ,R4 
PC ,.WRTCHR 
OR 42% 

SO0$ 

RO,R1 

ERRNO, T19SSR,PKTSSR 


FATFLG 


s;GET THE ADDRESS OF COMMAND PACKET 
300 WRITE CHARACTERISTICS COMMAND 

s;@@0FORCE ERROR IF FORCER=1 
:8R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR ree TS SET 


RAP CSEROF 

-WORD 843 

«WORD T119SSR 

-WORD PKTSSR 
sSET FATAL ERROR FLAG é 
;LOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


s REPEAT FOR ALL_TEST PATTERNS IN sane TABLE 
@TSTBLK RS 


100$: 


102%; 


112%: 


120$: 


MOV GET FIRST PATTERN ADDRESS 

MOV (R3)+, DATA err A TEST PATTERN 

BIC 6tC<377>, DATA ;DATA IS BYTE 

MOV R3, TSTPTR s SETUP CURRENT - TSTBLK POINTER 

Do a WRITE NPR to set loopback and Sage 2! 

MOV @NP .OUT.RO ;SET TAPE DIRECTION OUT 

BIS @NP - LOOP , RO }SET LOOPBACK 

JSR PC, T19SNPR ;SETUP T19PK2 FOR WRITE NPR 

MOV @Ti9PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

JSR PC. CHKTSSR ;WAIT FOR SSR TO SET 

FORCE : BBDF ORCE ERROR IF FORCER=1 

Bcs S$ BR IF CARRY SET GOOD RETURN) 

MOV RI ;SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERRDF ERRNO,T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP. CSEROF 
.WORD 844 
[WORD T194SSR 
"wORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 

Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 

MOV OF .T4RES,RO ; IRESV4==>IRSTR=1 

JSR PC. T1OWFMT iSETUP TOPK2 FOR WRITE FORMAT | 

MOV OTi9PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV Ra TspatRS) 3SET THE PACKET ADDRESS TO EXECUTE 

JSR PC. CHKTSSR ;WAIT FOR SSR TO SET 

FORCERROR 11 ;@@DFORCE ERROR IF FORCEK=1 

BCS ;8R IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERRDF ERRNO,T198SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP  CSEROF 
.WORD 845 
‘wORD T198SSR 
"WwORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 


SEQ 0202 


| 
| 
| 
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8775 3 
8776 056522 012700 00000 
8777 056526 012701 002312 
8778 056532 004737 061436 
8779 056536 012704 062030 
8780 056542 010465 
8781 056546 004737 016336 
6782 056552 
8783 056 103407 
8784 056570 010001 
8785 056572 
8786 056572 132%: 
056572 10445 
056574 001516 
056576 
056600 01 
8787 056602 005237 002222 
8788 056606 140% 
056606 104406 
3 
056610 012700 000001 
8791 056614 004737 061416 
056620 012704 062030 
8793 056624 010465 000000 
056630 004737 016336 
8795 056634 
8796 056650 103407 
8797 056652 010001 
8798 056654 
8799 056654 152$: 
056654 104455 
056656 001517 
056660 50 
056662 012046 
056664 005237 002222 
8801 056670 160$: 
056670 104406 
; 
8603 056672 005000 
8804 056674 052700 000040 
8805 056700 004737 061372 
0567 012704 062030 
8807 056710 01 5 000000 
8808 ooeT ee 004737 016336 
8610 056734 103407 
8811 056736 010001 
0567 
86813 056740 182$: 
0567: 104455 
056742 001 
056744 057741 
0567 O01 
8814 056750 005237 002222 
88615 056754 190$: 
0567 104406 
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Do a —T a he with byte count equst to 1 and iape direction OUT 


MOV BYTE 
MOV S0ATA, R1 FIFO WRITE DATA ADDRESS 
JSR PC, TISWFIF ;SETUP T19PK2 FOR WRITE FIFO 
MOV @T19PK2,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSDBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTS ;WAIT ae SSR TO SET 
FORCER' 132$ CE ERROR IF FORCER=1 
BCS 140% 3;6R IF CAR Y SET (GOOD RETURN) 
MOV RO,R1 3; SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF  ERRNO,7195SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 846 
-WORD 1195SSR 
-WORD PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG ser 
TRAP CSCLP1 
Do a READ FIFO with tape direction OUT to load tape. out write letch 
MOV #1,R 3SET READ avre Cc 
JSR PC * TLORFIF : SETUP T19PK2 FOR READ FIF 
MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR S2 eer ERROR IF FORCER=1 
BCS 160$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 i SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERRDF ERRNO,T196SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 847 
-WORD 1T196SSR 
.WORD PKTSSR 
INC FATFLG :SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Do a WRITE NPR to set loopback and sens die direction IN 
CLR RO CLR -OUT TO SET TAPE DIRECTION IN 
BIS @NP .LOOP ,RO sSET LOOPBACK 
JSR PC, T1I9SNPR ;SETUP T19PK2 FOR WRITE NPR 
MOV @T19PK2,R4 ;GET WRITE suesvsTen COMMAND 
MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO OXECUTE. 
JSR PC, SSR sWAIT FOR SSR TO SET 
FORCE 82 ;@8@DFORCE ERROR IF FORCER=1 
BcS 190$ ;BR IF CARR Y SET a re RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
x 848 
-WORD 1194SSR 
-WORD PKTSSR 
INC FATFLG :SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 


SEQ 0203 
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| 
| 8819 056764 


8818 056760 004737 061512 
012704 062030 
8820 056770 010465 000000 
8821 056774 004737 016336 
8822 057 
6623 057014 103407 
6824 057016 010001 
8825 057020 
8826 057020 202%; 
057020 104455 
057022 001521 
057024 060162 
057026 012046 
8827 057030 005237 002222 
8828 057034 210%: 
057 104406 
3 
8830 057036 C12700 000001 
68631 057042 004737 061512 
88 057 012704 062030 
8633 057052 01 5 000000 
88 057 004737 016336 
8835 057062 
8836 057076 103407 
8837 057100 010001 
8838 057102 
8839 057102 2228: 
0571 104455 
057104 001522 
0571 060162 
057110 012046 
8840 057112 005237 002222 
86841 057116 230% 
0571 104406 
3 
8843 057120 012700 000001 
057 737 061416 
6845 057130 012704 062030 
0571 010465 000000 
6847 dh pe 004737 016336 
8849 057160 103407 
8850 057162 010001 
8651 057164 
6852 057164 282%: 
0571 S55 
057166 001523 
¢57170 SO 
057172 O1 
88653 057174 005237 002222 
8854 057200 290%: 
057200 104406 
66ss F 
8856 057202 004737 061570 
8857 057206 012701 057432 
8658 057212 012702 061722 
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SEQ 0204 


CLR RO sSET IRESV40=2IRSTR=O 
JSR PC, TISWFMT sSETUP TOPK2 FOR WRITE FORMAT 
MOV @Ti9PK2,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
»CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 202% _ CE ERROR IF FORCER=1 
BCS 210% ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 849 
— T198SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 
MOV OWF .I4RES,RO ; IRESV4==>IRSTR=1 


9PK2 FOR WRITE FORMAT 
sGET WRITE SUBSYSTEM COMMAND PACKET 


MOV R4, TSDBCRS) s;SET THE PACKET ADORESS TO EXECUTE 
JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

FORC er LT ERROR IF FORCER=1 
BCS 230% ;6R IF CARRY SET (GOOD RETURN) 


MOV RO.R1 ;SAVE CONTENTS OF TSSR 


NEXT .ERRNO 

ERROF ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 850 
-WORD 1198SSR 
-WORD PKTSSR 


INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
Do a eer’ FIFO with tape direction IN to read data 
MOV :SET READ adh C 


FIFO 
M COMMAND PACKET 
3SET THE "ate ae TO EXECUTE 


JSR PC,.CHKTSSR :WAIT FOR SSR TO SET 

FORCER 82 seo @80FORCE ERROR IF FORCER=1 

6CcS 290% BR IF CARRY SET (GOOD RETURN) 

a E — sSAVE CONTENTS OF TSSR 

ERROF ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 851 
-WORD 1196SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
anes CsCLP1 


If Date read from FIFO NOT= to Date sent hw at Print Erro 
JSR 7 EXPDRECY (NOT TESTING) 


sGET RECV READ STATUS 


-F T1I9SETEXP 3SET 
MOV OTI9EXSTA,R1 
MOV @T19BFSTA,R2 
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| g859 057216 
| 8860 057222 


oS7272 
8870 057274 
, 057274 
6871 
8872 
thy 057276 
8874 057306 
8875 057312 


6876 057324 
867 


9 
8880 057324 
057324 
057324 


8682 057326 
68683 057332 
8884 057334 
6885 057340 


8886 
8887 057340 


057340 
057342 


8694 057344 


8 346 
8905 057350 
8906 057352 


013711 
016261 
005000 


104456 
001524 


061200 
013742 
104406 


013703 


000001 
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002312 MOV DATA, (R1) 
000002 000002 HOV 2¢R2),2¢R1) 
061702 MOV @T19BFR,R1 
057412 MOV OT19EXP .R2 
22 MOV 018. .R3 
011500 JSR PC, CKMSG2 
FORCERROR 302% ,NOTSSR 
NEXT. ERRNO 
302$: ERRHRD ERRNO, TISRSTR,MSGSUB 
310%:  CKLOOP 
FORCEXIT 
002316 MOV TSTPTR.R3 
003062 CMP R3, @TBLEND 
BHIS 355% 
056334 JMP 100% 
3558: 
ENDSUB 
002222 TST FATFLG 
BEQ 360% 
017202 JSR PC, CKDROP 
3608: 
EXIT TST 


oa 
;LOCAL STORAGE FOR THIS TEST 
i- 


TI9PREV: 


od 


-WORD O 


3; LOOPBACK DRIVE SIGNAL TABLE 
THIS TABLE IS USEO BY TI9CNVT 


;SET EXPD WORD #6 = DAT 


sSET EXPD WORD 09 = RECV (NOT TESTING) 
OR CKMSG2 


PD ADDRESS 
sNUMBER OF BYTES TO COMPARE 
;EXPD EQUAL RECV? 


3880 
;BR IF YES 
sREPORT ERROR 
TRAP 
- WORD 
- WORD 
. WORD 
;LOOP ON ERROR, IF FLAG SET 
D TRAP 


STORE CURRENT TSTBLK POINTER 


RE 
;END OF TSTBLK? 
;68R IF YES 
;D0 ANOTHER TSTBLK PATTERN 


TIORSTR 
MSGSUB 


SEQ 0205 


CSERHRD 
852 


CsCLP1 


s4//1111111/7 ENO SUBTEST /////////7/ 
L10072: 


TRAP 


sANY FATAL ERRORS ? 
;BRANCH IF NOT 
sTRY TO DROP THE UNIT 


34444114114 EXIT TEST SSSSAAA147 
TRAP 


CsESUB 


CsExIT 
L10066-. 


sDRIVE SIGNAL 1-0 TRANSITION FLAG 


TO SETUP 
A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN. 
WRITE CONTROL SIGNALS ARE OF FORM WC.XXX 


; 
; 
: 
; WRITE FORMAT SIGNALS ARE OF FORM 
A 
T 


198FCTL: 
WC .IGO 
WC. IFEN 
WC. IRWU 


WF . XXXX 


sWRITE CONTROL onrve SIGNALS 
sIGO==>IFPT DATA<Q> 

;IFEN==>IFBY 
3 IRWU==>IRWD 


DATA<1> 
DATA<2> 





| 
' 
} 
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SEQ 0206 


TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 
8907 057354 000010 WC. IRE ; IREW==>IDBY DATA<3> 
8908 057356 002000 WF. IERASE*#256 3 1FAD©=>ILDP DATA<4> 
8909 057360 000040 WC.I1TAOD sITADi==>IONL ODATA<5> 
8910 057 000100 WC. IOTAD sITADO==>IRDY DATA<6> 
6911 057364 000200 WC. IFAD s TERASE **> SPEED DATA<7> 
6912 057366 004000 WF. IEDIT*s#256 sIEDIT==>IHER DATA<8> 
6913 057370 010000 WF. IWFM#256 3 IWFM==>IFMK DATA<9> 
6914 057372 020000 WF . IREV*256 3 IREV==>ICER DATA<10> 
8915 057374 040000 WF .IWRT#256. sIWRT==>IIDENT DATA<11> 
8916 057376 100000 WF. IHISP*256. sIHISP-*>IEOT  DATA<12> 
6917 057400 000000 WORD O sIRESV2 UNUSED )OATA<15> 
8918 057402 000000 WORD 0O sIRESV1 (UNUSED )DATA<14> 
yah 057404 000900 WORD O ;PARERR CUNTESTED)DATA<15> 
8921 057406 T19MSK: MASK OF UNTESTED BITS IN READ STATUS BYTES 
8922 UNTESTED BITS ARE SET TO 1 
8923 057 377 BYTE tC<000> sBYTE O MASK 
6924 057407 037 BYTE t€<340> iBYTE 1 MASK CPARERR, IRESV2,. IRESV1) 
6925 057410 360 BYTE tC<017> iBYTE 3 (TIMER A, TIMER 6. UNDEF INED<1:0>) 
oot 057411 000 BYTE sMAKE IT EVEN 
6928 057412 T19EXP; ;BEGIN peer ree DATA BUFFER 
8929 057412 000000 -WORD O 3MESS TYP 
8930 057414 000000 -WORD O iDATA FIELD LENGTH 
8931 057416 000000 -WORD O :RBPCR 
8932 057 000000 -WORD O 3XST 
6933 057422 000000 -WORD O 3XST1 
6934 057424 000600 -WORDB O :xST2 
8935 057426 000000 -WORD O sXST3 
8936 057430 000000 -WORD O ixST4 CALWAYS PRESENT FOR WRITE SUB.) 
8937 057432 TI9EXSTA: .BLKB 64. sEXPECTED READ STATUS AND WRITE Cire DATA 
pte 057532 T19EXEND: sEND EXPECTED DATA BUFFER 
3¢ 
8940 sLOCAL TEXT MESSAGES FOR TEST 
pet s- 
8943 057532 124 162 141 TST19I0: -ASCIZ ‘Transport Bus Interface Loopback’ 
8 057573 127 122 111 T1i9SSR: cI ‘WRITE CHARACTERISTICS Failed’ 
6945 057630 127 122 111 T1925SR: ASCIZ ‘WRITE SUBSYSTEM (Write Misc> Failed’ 
8946 057674 127 122 111 T193SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
6947 057741 127 122 111 T194SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Nor) Feiled 
127 122 111 T195SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write FIFO) Failed’ 

9 0600: 127 122 111 T196SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read FIFO) Feiled’ 
8950 060113 127 122 111 T197SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Control) Failed’ 
8951 060162 127 122 111 T198SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Format) Failed’ 
8952 0602 106 111 106 T191CMP:.ASCIZ ‘FIFO Status in WORD @9 Incorrect efter Initialize’ 
6953 060312 122 145 141 T1i92CMP: .ASCIZ ‘Read FIFO Data not al to Write FIFO , Date is in WORD @8' 
8954 124 141 160 Ti93CMP:.ASCIZ ‘Tape Status 2 Cin #8) Incorrect efter RESET TAPE’ 
8955S 060474 122 145 141 T19S5CMP: .ASC ‘Read FIFO Date ont equel to Write FIFO Dete' 
8956 0605: 106 111 106 CMP: . ‘FIFO Status sie WORD #9) Incorrect after READ FIFO’ 
8957 060635 124 141 160 TI97CMP:.ASCIZ ‘Tape Status 2 Cin WORD 08) Incorrect efter RESET TAPE’ 
6958 060721 103 157 156 T198CMP:. IZ ‘Control Signal L k Date Error, Date is in WORD 06° 
8959 061010 122 145 141 T199CMP: .ASCIZ H ponte ae L eck Date Error, Date is in WORD @6' 
8960 06107 114 157 157 Ti9WSTR: .ASCIZ copback Date Error when strobed by Write strobe, Date is in WORD 08’ 
oeeh 061200 114 157 157 Ti9RSTR: .ASCIZ oe Date Error when strobed by Read Strobe, Date is in WORD @68' 
6963 .EVEN 
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8 
9019 061416 
9020 061416 


004737 
012701 
112721 
052700 
110011 
000207 


004737 
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061702 
000120 


061304 
062040 
000011 
000020 


061304 
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3¢ 
: CLEAR MESSAGE BUFFER 


TL9CLRBUF : 
SAVREG iSAVE R1-RS UNTIL NEXT RETURN 
MOV @T19BFR,R1 T MESSAGE BUFFER ADDRESS 
MOV @T19BEND-T19B8FR,R2 iSIZE oF MESSAGE. BUFFER IN BYTES 
108: CLRB = (R1)+ ;CLEAR A BYTE 
DEC R2 3s DONE? 
BGT 10% 3BR IF NO 
RTS PC ;RETURN 
4 
} SETUP T19PK2 PACKET FOR READ STATUS 
tigsro: 
JSR PC, TLOCLRBUF :CLEAR MESSAGE BUFFER 
MOV eTi90T2 ;WRITE sussySTEN DATA BUFFER 
MOVE oPu. RDSTATUS, (RO)+ sSTORE READ STATUS COMMAND IN BSELO 
CLRB 3s CRO) ;CLEAR BSEL1 
RTS PC ;RETURN 
& 
; SETUP T19PK2 PACKET FOR WRITE MISC Reset Tepe Status F-FLOPS 
TLORSFIF : 
JSR PC, T19CLRBUF :CLEAR MESSAGE BUFFER 
MOV @T190T2,RO ;WRITE SUBSYSTEM DATA BUFFER 
MOVB $@PW.WMISC,(RO)+ ;STORE WRITE MISCELLANEOUS IN BSELO 
MOVE © @HS.RSFIF IMS.RSTAP, (RO) STORE BSEL1 CLEAR FIFO CODES 
RTS PC ;RETURN 
: SETUP T19PK2 PACKET FOR WRITE NPR 
} INPUT: 
; RO CONTAINS BSEL1 NPR DATA 
; SETS NP.WRP SINCE IF 0 IT WRITES WRONG PARITY. 
T19SNPR: 
J PC, TL9CLRBUF ;CLEAR MESSAGE BUFFER 
MOV @Ti90T2,R1 ;WRITE SUBSYSTEM DATA BUFFER 
MOVE @PW.WNPR,(R1)> sSTORE WRITE NPR IN BSELO 
BIS @NP -WRP RO 3D0N'T WRITE WRONG PARITY 
MOVB RO, (R1) sSTORE NPR DATA IN BSEL1 
RTS PC ;RETURN 
e 
} SETUP T19PK2 PACKET FOR READ FIFO 
: 
3 INPUT: 
: RO CONTAINS SEL2 BYTE COUNT 
TIORFIF : ‘ 


JSR PC, T19CLRBUF 


sCLEAR MESSAGE BUFFER 


SEQ 0207 
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9021 
9022 06 


9023 
9024 
9025 
9026 


012701 
112721 
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062040 
000003 


061304 
062040 
000004 


061304 
062040 
000006 


061304 
062040 
000007 


LOOPBACK READ STROBE TEST 


MOV @T190T2,R 


sWRITE SUBSYSTEM DATA BUFFER 
BSELO 


MOVB 3s @PW. Rr if 0, (R1)+ ;STORE READ FIFO IN 
MOVE RO, CR1 ;STORE BYTE COUNT IN BSEL1 
RTS PC ;RETURN 

3¢ 

SETUP T19PK2 PACKET FOR WRITE FIFO 

} INPUT: 

: RO CONTAINS BYTE COUNT 

: Ri CONTAINS DATA PATTERN BLOCK ADDRESS 

TLOWFIF : 
SAVREG :SAVE R1-RS UNTIL NEXT RETURN 
JSR PC, TL9CLRBUF CLEAR MESSAGE BUFFER 
MOV eTi9D0T2,R2 ;WRITE SUBSYSTEM DATA BUFFER 
MOVE PW.WFIFO,(R2)+ ;STORE WRITE FIFO IN BSELO 
MOVB RO, CR2)s ;STORE BYTE COUNT IN BSEL1 
CLR (R2)+ ;CLEAR SEL2 CUNUSED) 

108: MOVB CR1}s,(R2)s ;STORE DATA PATTERN BYTE 
DEC RO ;DONE ALL BYTES? 
BGT 10% ;6R IF NO 
RTS PC ;RETURN 


oa 
; SETUP T19PK2 FOR WRITE CONTROL 
} INPUT: 


: “RO CONTAINS ORIVING DATA PATTERN 


“Tt T1I9CLRBUF 
MOV @Ti90T2.R1 


;CLEAR MESSAGE BUFFER 

;WRITE SUBSYSTEM DATA BUFFER 
;STORE WRITE CONTROL IN BSELO 
sSTORE DATA WORD IN BSEL1i 
sRETURN 


MOVE = @PW.WCTL, (R1)> 
MOVE 0.¢R1)« 
RTS 
+ 
i SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER 
$ 
3; INPUT 
; "RO CONTAINS DRIVING DATA PATTERN 
T19WFMT: 
JSR PC, TLOCLRBUF 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE FORMAT IN BSELO 
sSTORE DATA WORD IN BSEL1 
RETURN 


+ 
SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 


RTS 
ti9sext: 
MOV @T190T2.RO 
MOVE = @PW. WMISC, (RO)> 
MOVE = @MS.EXT. CRO) 
RTS PC 


+ 
+ CLEAR EXPECTED DATA MESSAGE BUFFER 
i- 


sWRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE MISCELLANEOUS IN BSELO 
ORS INVERT EXTENDED FEATURES IN BSEL1 


SEQ 0208 
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061550 
9079 061550 012701 
9080 061554 012700 
9081 061560 105021 
9082 5300 


| 
| 
06 
9084 061566 000207 
9085 
9086 
9087 
9088 
9089 061570 
9090 


9116 061620 012701 
061624 005002 

9118 061626 0127035 
006000 


9136 061660 
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057412 
000120 


057412 
061702 
000010 


057346 
000020 


TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 


TLI9CLEXP; 
MOV 


@T19EXP,R 3GET EXPD ADDRESS 
MOV @T19EXEND - 1 LOEXP, RO iGET EXPD SIZE 
108: CLRB CR1)+ ;CLEAR A BYTE 
DEC RO 3sDONE? 
BGT 10% :6R IF NO 
RTS PC sRETURN 
3¢ 
:Set WORDS 0-7 of expd message BUFFER = to recv since not testing 
i- 
TLOSETEXP: 
MOV @T19EXP ,R2 :GET EXPO 
MOV @T19BFR,RS ;GET READ STATUS ee BUFFER 
MOV #8.,RO sSET WORDS 0-7 EXP=RECV 
S$: MOV CR3)+,CR2)+ iSET EXPD=RECV 
DEC RO ;DONE WORDS 0-7 WORDS? 
BGT 5$ 36R IF NO 
RTS PC sRETURN 


+ CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS 
; INPUTS: 

: RO TEST PATTERN 

; IMPLICIT INPUTS: 

; TI9BFCTL - CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 
; OUTPUTS: 

RO - LOW BYTE CONTAINS WRITE CONTROL DATA 

; - HIGH BYTE CONTAINS WRITE FORMAT DATA 

i 


19CNVT: 

SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV @T19BFCTL.R1 © ;CONVERSION TABLE ADDRESS 
CLR — R2 INIT RESULT OF CONVERSION 
MOV 016. .R3 ;BIT COUNT 

10s: ROR RO IS THIS BIT EQUAL TO 1? 
BCC 208 '8R IF NO 
BIS (R1),R2 ‘SET CONVERTED BIT 

20$: ‘TST (R1)s ;POINT TO NEXT BIT IN CONVERSION TABLE 
DECOR ; DONE? 
BGT 10$ ‘BR IF NO 
MOVs R2., RO ‘COPY RESULT 
RTS PC i RETURN 
. =<, 61026177770 

3 

IWRITE CHARACTERISTICS COMMAND PACKET 

T19PACKET: :;COMMAND PACKET FOR TEST 
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| TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 


SEQ 0210 


9137 061660 100004 -WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
9138 061662 061670 -WORD T19DATA sADDRESS OF CHARACTERISTICS BLOCK 
9139 061664 000000 -WORD O 
3330 061666 000012 -WORD 10. sMINIMUM MESSAGE PACKET SIZE 
9142 061670 TI9DATA;: 1 SORES Gr Mess DATA BLOCK 
9143 061670 061702 -WORD T19BFR ADDRESS OF MESSAGE BUFFER 
9144 061672 WORD 
9145 061674 000024 WORD 20 sLENGTH OF MESSAGE BUFFER 
9146 061676 000000 WORD ;ESS,ENB,EAI,ERI 
odd 061700 000007 WORD 7 ; EXTENDED FEATURES UNIT NO. 
9149 
Stee sMESSAGE BUFFER FOR ALL TEST 8 COMMANDS 
9152 061702 T19BFR: ;BEGIN passat BUFFER 
9153 061702 000000 «WORD O sMESSAGE TYPE 
154 061704 000000 -WORD O iDATA FIELD LENGTH 
9155S 0617 C00000 -WORD O sRBPCR 
156 061710 000000 -WORD 0 3XSTO 
9157 061712 000000 -WORD O :XST1 
9158 061714 000000 -WORD O 3xST2 
9159 061716 000000 «WORD O 3:XST3 
9160 061720 000000 -WORD O ;XST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
9161 061722 T1I9BFSTA: .BLKB 64. sREAD STATUS AND WRITE FIFO BUFFER 
Mes | 22 TI9BEND: sEND OF MESSAGE BUFFER 
’ 
sss sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
3 
9167 062030 -®¢,¢10>€177770 
9169 062030 T19PKe2: 
9170 062030 100006 .WORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
9171 062032 062040 “WORD Ti9DT2 ;LOW ADDRESS OF DATA BLOCK 
9172 062034 000000 -WORD O sHIGH ADDRESS OF DATA BLOCK 
gi73 062036 000012 WORD 10 sMINIMUM MESSAGE PACKET SIZE 
9175 062040 T190Te: sDATA BLOCK 
9176 062040 000 BYTE 0O ;BSELO 
9177 000 BYTE O ;BSEL1 
9178 062042 000000 dD 6 «(CO ;SEL2 
pha BLKB 64. ;WRITE FIFO DATA OUTPUT BUFFER 
9181 
9182 062144 ENOTST 
062144 L10066: 
062144 104401 TRAP LSETST 
2388 -SBTTL TEST 9: READ/WRITE DATA PARITY TEST 
toe 
Sie ; TEST DESCRIPTION: 
3 
9187 ; This test verifies that the Write Data Parity generator 
9188 3 and the Read Data Por ity checker operate Ben yt} The 
9189 ; Transport Bus signal loopback mode is enabled and a 
9190 3 Set Wrong parity function is executed. Then various 
9191 : Write Subsystem Memory functions are performed to 
9192 3 write data to and from the FIFO in loopback 
9193 3 The program then checks to insure a Read Data parity 


| 
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012700 064532 
004737 016510 
012737 000012 002216 


T20LO0P : 
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error occurred. 

A Reset FIFO is done and the Read Data parity 

error bit is again tested to insure it cleared. 
Finally ea Clear oe parity function is done 

and it is verified the data word can pass in loopback 
mode without setting Read Data parity error. 


TEST STEPS: 
REPEAT FOR LOOPCNT 
BEGIN 


Write to TSSR regi ister to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If aera $store Hardware Switch Clear then: 
Do W exe stem Write Miscellaneous to Set aytondes Features. 
WRITE ett: ERISTICS to select reserved unit 7 and setup BUFFER 


Do 
a? M FOR ALL TEST PATTERNS IN TSTBLK TABLE 


(* aunt te” Wp o?* Wron or Sets Parity Error #) 
Do R to se uae F gy —— direction OUT 
y Set Write one oS 
Do a WRITE. FORMAT to set I ESvas=SiRSTR = 1 (sets read strobe high) 
Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
Do a READ FIFO with tape direction OUT be load tape out write latch 
(this is when wrong povag Mf WP) is set) 
Do a WRITE FORMAT* to set I ESV4e=>IRSTR = My read strobe low) 
(Read Strobe sets PAR IN H [Parity Error)) 
Do ea WRITE “FORMAT to set ee 1 (sets read strobe high) 
Do a Write Subsystem READ STATUS 
If Read Data parity error NOT=1 Then Print Error 
Do a Write Misc to RESET FIFO 
Do a Write Subsystem READ STATUS 
If Read Date parity error NOT=0 Then Print Error 


(* pay tht Data can be transferred without a Parity Error *) 


Do a FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
Do a WRITE NPR to set 1 ack and tape direction OUT 
and CLEAR Write Wrong Parity. 
Do e WRITE FIFO with byte count equai * 1 and Tape direction OUT 
Do a READ FIFO with tape direction OUT to load tape out write latch 
Do a WRITE FORMAT to set IRESV4s=>IRSTRe = 0 (sets read strobe low) 
(Read Strobe should NOT set PAR IN H (Parity Error) here) 
Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
Do a Write Subsystem READ STATUS 
If Read Date parity error NOT=O Then Print Error 
END 
BGNTST 


MOV @TST20I0,RO 
JSR PC, TSTSETUP 
MOV #10. ,LOOPCNT 


sASCII MESSAGE 10 IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 10 ITERATIONS 


SEQ 0211 
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9254 062164 
104402 


015774 


005037 002222 
065730 
010662 


002222 


065752 
032761 000200 000012 
065646 
066100 
000000 
016336 


Ov2222 


065730 
010662 
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és: 


3 
108: 


12%: 


223: 


SEQ 0212 


BGNSUB TAAALLALLAAAA — SAAS ASS j 
TRAP C$BSUB { 

Write to TSSR register to soft initialize the controller | 

JSR PC,SOFINIT sWRITE TO TSSR TO sot INITIALIZE 

BCS 10$ 36R IF SOFT INIT OKAY | 

ERROF ERRNO SFIERR, SFIMSG rSAVE CONTENTS OF TSSR | 

. . 3 

TRAP CSERDF 
-WORD 900 
-WORD SFIERR 
-WORD SFIMSG 

Do ae Senge aRES Tae to check for Extended Features Switch 

CLR TFLG ;CLEAR FATAL ERROR FLAG 

MOV STDOPACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 

JSR PC, ,WRTCHR ;00 WRITE CHARACTERISTICS COMMAND 

FORCERROR ;@@80FORCE ERROR IF FORCER=1 

BCS 15% ;6R IF CARRY SET (go08 RETURN) 

MOV RO,RL ;SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERROF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 901 
-WORD T20SSR 
WORD PKTSSR 

INC FATFLG :SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

If Extended Features Hardware Switch Clear then: 

Do Write Subsystem Write Miscellaneous to Set Extended Features. 

MOV @T208 ;MESSAGE BUFFER ADORESS 

BIT @X2.EXTF,XST2(R1) ; EXTENDED FEATURES SWITCH SET? 

BNE 30% ;B8R IF YES 

JSR PC, T2Z0SEXT ;SETUP PACKET FOR WRITE MISC INVERT 

MOV T20PK2,R4 :GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

JSR PC,CHKTSSR 3;WAIT og SSR TO SET 

FORCERR 22 ORCE ERROR IF FORCER=1 

BCS R IF CARRY SET (GOOD RETURN) 

MOV RO,R1 eave CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO, T202SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 902 
oe 1202SSR 

PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET é 
TRAP CSCLPi 

Do WRITE CHARACTERISTICS to select reserved unit 7 

MOV @T20PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

PC, WRTCHR ;D0 WRITE CHARACTERISTICS COMMAND 

FORCERROR 42$ s@@DFORCE ERROR IF FORCER=1 

BCS 50$ ;8R IF CARRY SET (GOOD RETURN) 

MOV RO,.R1 ; SAVE CONTENTS OF TSSR 

NEXT. ERRNO 
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, TEST 9: READ/WRITE DATA PARITY TEST 


| 
| 





9295 062402 
062402 
062404 


104455 
001607 
064561 
012046 
005237 


104406 


012703 
012337 


042737 
010337 


104406 


012700 
012701 


SEQ 0213 


42%: ERRDOF ERRNO, T20SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
. 903 
-WORD T20SSR 
-WORD PKTSSR 
002222 INC FATFLG Hr? FATAL ERROR FLAG 
50%: CKLOOP LOOP ON ERROR, IF FLAG a 
CSCLP1 
: REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
002752 MOV @TSTBLK, or seat ae g iti ADDRESS 
00231 100%: MOV CR3)+,DAT A TEST PATTERN 
177400 002312 BIC @tC<377> DATA CATA IS BYTE 
002316 MOV 3, TSTPTR sSETUP CURRENT TSTBLK POINTER 
3 Do a WRITE NPR to set loopback and tape direction OUT and 
3 and SET Write Wrong Parit ty; 
000100 MOV @NP .OUT RO sSET TAPE DIRECTION OUT 
000040 BIS @NP LOOP ,RO ;SET LOOPBAC 
000020 BIC @NP .WRP ,RO sSET WRITE WRONG PARITY CINVERTED) 
065516 JSR PC, T2ZOWNPR sSETUP T20PK2 FOR WRITE NPR 
1 MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) iSET THE PACKET ADDRESS TO EXECUTE 
016336 JSR C.CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 3 8@0F ORCE a IF FORCER=1 
6cS $ ;BR IF CARRY SET sees * ETURN) 
Vv oR1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
1028: ERROF ERRNO, T204SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
«WORD 904 
«WORD T204SSR 
-WORD PKTSSR 
002222 INC FATFLG ;SET FATAL ERROR FLAG 
10S$: CKLOOP :LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
H Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
000001 MOV @WF .I4RES RO sIRESV4==>IRSTR = 1 
065612 JSR PC, T2OWFMT {SETUP T20PK2 FOR WRITE FORMAT 
066100 MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC, CHKTSS' sWAIT FOR SSR TO SET 
FORCERROR Tah ERROR IF FORCER=1 
BCS $ ;B8R IF CARRY SET (GOOD RETURN) 
MOV oR1 ; SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
112$: ERROF ERRNO, T208SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 905 
-WORD T208SSR 
-WORD PKTSSR 
002222 INC FATFLG ;SET FATAL ERROR FLAG 
1208: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 
8 Do a unre FIFO with byte count eget. to 1 and Tape direction OUT 
000001 MOV »RO ITE 1 BYTE 
002312 MOV SOTA, Ri iFIFO WRITE DATA ADDRESS 


_TSVS - HARDWARE TESTS 
| TEST 9: READ/WRITE DATA PARITY TEST 
| 9337 062626 004737 065556 


062632 012704 066100 
9339 062636 010465 000000 
062642 004737 0163536 
9341 062646 
2 062662 103407 
9343 062664 010001 
9 062666 
9345 062666 
062666 ss 


0626 
9346 062676 005237 002222 


000001 
004737 065536 
9352 062714 012704 066100 

000000 
9354 062724 004737 016336 


9360 062760 005237 002222 


062766 005000 
9365 062770 004737 065612 
po thes 012704 066100 


000000 
016336 


012046 
005237 002222 


063046 000001 
9378 0635052 004737 065612 


1528: 


1728: 


192$: 
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ERRNO, T20SSSR ,.PKTSSR 


JSR PC, TOOWFIF 
MOV @T20PK2,R4 
MOV R4, TSDBCRS) 
JSR PC. CHKTSSR 
FORCERROR 152 
Bcs 

MOV RO,R1 

NEXT. ERRNO 

ERROF 

INC FATFLG 
CKLOOP 


* BBO OR RROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 906 
-WORD T2O0SSSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 


sLOOP ON ERROR, IF FLAG 3 
TRAP CSCLP1 


Do a READ FIFO with tape direction OUT out load tape out write latch 


(thi 
MOV #1,R0 
JSR PC, T2ORFIF 
MOV OPKe, 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 
FORCE 
Bcs 180% 
MOV RO,R1 
NEXT .ERRNO 
ERROF 
INC FATFLG 
CKLOOP 


Do a WRITE FORMAT to set IRESV4==>IRSTR = 


ERRNO, T206SSR,PKTSSR 


is is a wrong parity (IWP) is 


sSET READ BYTE COUNT 

sSETUP T20PK2 FOR READ FIFO 

sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET_ THE te TO EXECUTE 


sWAIT FOR SSR TO SET 

;@@0FORCE ERROR IF FORCER=1 
s6R IF CARRY Y SET <soce RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
«WORD 907 
-WORD T206SSR 
-WORD PKTSSR 


;SET FATAL ERROR FLAG 

sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

0 (sets read strobe low) 


{Sead Strobe sets PAR IN H [Parity Error])) 


CLR 
JSR PC, TOOWFMT 
MOV @T2OPK2,R4 
MOV R4, TSOBCRS) 
JSR PC; CHKTSSR 
FORCE 

BCS 00$ 

MOV RO,RL 

NEXT .ERR 

ERROF 

INC FATFLG 
CKLOOP 


Do a WRITE FORMAT a set IRESV4==>IRSTR = 


MOV 
JSR 


OwF .I4RES, 
PC, T20WFMT 


NO 
ERRNO, T208SSR ,,PKTSSR 


sIRESV4==>IRSTR = 0 

sSETUP T20PK2 FOR WRITE FORMAT 

sGET was SUBSYSTEM COMMAND PACKET 
iSET THE P ssn 10 Set TO EXECUTE 


sWAIT ap SSR T 

ORCE —~ IF FORCER=1 
3BR IF CARRY Y_SET C6000 '® ETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP —— 


WOR 
WORD T208SSR 


"WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 


ceca 
1 (sets read strobe high) 
TIRESVas=>IRSTR = 1 

;SETUP T20PK2 FOR WRITE FORMAT 


SEQ 0214 
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OMMAND 
9420 063310 004737 065632 JSR PC, T2OWMISC sSETUP T20PK2 FOR WRITE MISC 


| 
| 9379 063056 012704 066100 MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET | 
9380 063062 010465 000000 MOV R4,TSDOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
9381 063066 004737 016336 JSR PC ,.CHKTSSR sWAIT FOR SSR TO = I 
9382 063072 FORCERROR 212$ Tah RROR IF FORCER=1 
9383 063106 103407 BcS 220% 36R IF CARRY SET (6000 RETURN) 
9384 063110 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
93865 063112 NEXT .ERRNO 
386 063112 2128: ERROF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
063112 104455 TRAP CSEROF 
063114 001615 -WORD 909 
063116 065101 -WORD T208SSR 
063120 012046 -WORD PKTSSR 
9387 063122 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 
9388 063126 2208: CKLOOP sLOOP ON ERROR, IF FLAG SET 
063126 104406 TRAP CSCLPi 
9389 3 Do a Write supexece READ STATUS 
9390 063130 004737 065476 JSR PC,T2 sSETUP PACKET FOR oe STATUS 
9391 063134 012704 066100 MOV #T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
9392 063140 C10465 000000 MOV R4, TSDBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
9393 063144 004737 016336 JSR PC.CHKTSSR sWAIT FOR SSR TO SET 
9394 063150 FORCERROR 232% ooeree ERROR IF FORCER=1 
9395 063164 103407 BCS 240% 3;6R IF CARRY SET (GOOD RETURN) 
9396 063166 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9397 063170 NEXT .ERRNO 
9398 063170 232%: ERRDF ERRNO, T203SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
063170 104455 TRAP CSEROF 
063172 001616 WORD t+) 
063174 06466 -WORD T203SSR 
063176 012046 - WORD 
9399 063200 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 
9400 063204 2408: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
063204 104406 TRAP CSCLP1 
9401 3 If Read Date parit cel NOT=1 Then Print Error 
9402 004737 065704 JSR PC, T2Z0SETEXP sSET WORDS 0-7 EXPD=RECV CNOT TESTING) 
9403 06 012701 06443 MOV @T2OEXSTA,R1 sGET EXPECTED READ STATUS 
9404 063216 012702 065772 MOV @T20BFSTA,R2 ;GET RECV READ 
9405 063222 011211 MOV CR2),CR1 ;SET EXPD WORD #8 = RECV TEMP 
9406 063224 016261 000002 000002 MOV 2cR2), 2(R1) sSET EXPD WORD @9 = RECV COT TESTED) 
9407 063232 052711 100000 BIS 051. PARERR,(R1) ;SET EXP PAR ERR =1 
9408 063236 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
9409 063240 012701 065752 MOV @T20BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 
9410 063244 012702 064412 MOV @T20EXP ,R2 sEXPD ADDRESS 
9411 063250 012703 000024 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
9412 063254 004737 011500 JSR PC, CKMSG2 iEXPD EQUAL RECV? 
9413 063260 FORCERROR 252$,NOTSSR 3:880 
9414 063270 103404 BCcS 260% 7BR IF YES 
9415 063272 NEXT .ERRNO 
9416 063272 2528: ERRHRD ERRNO, T20SWP,MSGSTAT sREPORT ERROR 
063272 104456 —_, > es 
063274 001617 ne 
063276 065147 . 720SuP 
063300 012350 sand MSGSTAT 
9417 063302 260%: CKLOOP ;LOOP ON ERROR, IF ‘is 
063302 104406 TRAP CSCLPi 
9418 3 Do a Write Misc to RESET FIFO 
9419 063304 012700 000020 MOV OMS .RSFIF ,RO sSET RESET FIFO C 
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@T20PK2 ,R4 


WRITE SUBSYSTEM COMMAND PACKET 


9421 063314 3GET 
9422 063320 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
9423 063324 004737 016336 JSR PC. CHKTSSR sWAIT ag SSR TO SET 
063330 FORCERROR ORCE ERROR IF FORCER=1 
9425 0635544 103407 BcS 290 BR IF CARRY SET (goo RETURN) 
063346 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9427 063350 NEXT .ERRNO 
8 06335 282%: ERRDF ERRNO, T202SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
0633 104455 TRAP CSEROF 
063352 001620 «WORD 912 
063354 064616 «WORD T202SSR 
0633 012046 -WORD PKTSSR 
9429 0635360 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
9430 063364 290%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
063 104406 TRAP CSCLPi 
9431 F Do a Write Subsystem READ STATUS 
9432 3 If Read Data ger ity. error NOT=0 Then Print Erro 
9433 063366 004737 065704 JSR PC, T20SE SET WORDS 0-7 EXPD=RECY (NOT TESTING) 
063372 C12701 3. MOV @T20EXSTA,R1 sGET EXPECTED READ STATUS 
9435 063376 0127 065772 MOV @T20BFSTA,R2 sGET RECV READ STAT 
06 011211 MOV 2),CR1) sSET EXPD WORD @6 = TEMP 
7 06 01 000002 000002 MOV 2(R2),2(R1) 3SET WORD #9 = RECV (NOT TESTED) 
0634 042711 100000 BIC @S1.PARERR,(R1) ;SET EXP PAR ERR =0 
9439 063416 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
06 012701 065752 MOV @T20BFR,R1 sLOW RECV ADDRES 
9441 063424 012702 064412 MOV at ae R2 :EXPO ADDRESS 
06 012703 000024 MOV eR3 sNUMBER OF BYTES TO COMPARE 
9443 063434 737 011500 JSR Pe. OeensG2 sEXPD EQUAL RECV? 
06 FORCERROR 302$ ,NOTSSR 3880 
9445 063450 103404 Bcs 320 ;BR IF YES 
063452 NEXT .ERRNO 
9447 063452 302%: ERRHRD ERRNO, T2ORSF .MSGSTAT sREPORT ERROR 
063452 104456 TRAP CSERHRD 
063454 001621 «WORD 913 
063456 065256 -WORD T2ORSF 
063460 012350 -WORD MSGSTAT 
9448 063462 320% CKLOOP ;LOOP ON ERROR, IF FLAG SET 
063462 104406 b TRAP CSsCLP1 
8449 3 (* Verify Date can be transferred without ea Parity Error *) 
9450 $ Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
9451 06 012700 000001 MOV @uF .I4RES RO TTRESV4e=>IASTR =1 
9452 063470 004737 065612 JSR PC, TZOWFMT sSETUP T20PK2 FOR WRI 
9453 063474 012704 066100 MOV @T20PK2, ;GET WRITE SUBSYSTEM COMMAND PACKET 
063 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
9455 063504 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
9456 063510 FOR 332% ; ~_ ERROR IF FORCEK=1 
9457 063524 103407 BcS 3403 ;BR IF CARRY SET (GOOD RETURN) 
9458 063 010001 MOV RO,R1 3 SAVE CONTENTS OF TSSR 
9459 063530 NEXT .ERRNO 
9460 0635 332$: ERRDF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
0635 104455 TRAP CSEROF 
063532 001622 -WORD 914 
063534 065101 -WORD T208SSR 
063536 012046 -WORD PKTSSR 
9461 063540 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
063 340%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
063 104406 TRAP CSCLP1 


SEQ 0216 





9463 
9464 
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000100 
000040 
000020 
065516 
066100 
000000 
016336 


002222 


002222 


000001 
065536 
066100 


000000 
016336 


002222 


3528: 


372%: 


392%: 


400$: 


Do e mae -¢. to set soqes’ and tape direction OUT and 


Ta Write Wrong Perity. 
MOV ene OUT sSET TAPE DIRECTION OUT 
BIS ene LOOP Ro 3SET LOOPBACK 
BIS ‘ ‘CLEAR WRITE WRONG PARITY ¥_CINVERTED) 
JSR ee 120 ;SETUP T20PK2 FOR WRITE NPR 
MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
SR ;WAIT FOR SSR TO SET 
FORCERROR 352% ;@@0FORCE ERROR IF FORCER=1 
BCS 3608 ;8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERRDF ERRNO,T204SSR,PKTSSR §§ ;DEVICE FATAL SSR FAILED TO SET 
TRAP  CSEROF 
.WORD 915 
‘WORD T204SSR 
‘WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1i 
-. e WRITE FIFO with byte count equal to 1 and Tape direction OUT 


INC FATFLG 
CKLOOP 


#1,RO sWRITE 1 BYTE 
MOV @DATA,R1 sFIFO WRITE DATA 
JSR eT IF sSETUP T20PK2 FOR WRITE FIF 
MOV K2,R4 sGET WRITE SUBSYSTEM COMMAND 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
PC ,,.CHKTSSR sWAIT FOR SSR re. 
FORCERROR ah RROR IF FORCER=1 
Bcs 380% :8R IF CARRY SET C6000 RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO, T20SSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 916 
-WORD T205SSR 
-WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG 3 


Do ea READ FIFO with tape direction OUT to load t 


INC FATFLG 
CKLOOP 


CSCLPi 
out write latch 


MOV #1,RO sSET READ BYTE c 

JSR PC, T2ORF IF sSETUP T20PK2 FOR READ FIFO 

MOV 20PK2 .R sGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) iSET THE PACKET ADDRESS TO EXECUTE 

JSR C.CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 392% 3 ~ ERROR IF FORCER=1 

Bcs 4008 BR IF CAR T (GOOD RETURN) 

~ e Ti 3 SAVE CONTENTS OF TSSR 

ERRDF ERRNO, T206SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 917 
-WORD T206SSR 
-WORD PKTSSR 


;SET FATAL ERROR F 


INC FATFLG LAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 





SEQ 0217 
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065612 
066100 


000000 
016336 


002222 


002222 


065476 
066100 
000000 
016336 


002222 


4128: 


432%: 


452%: 
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TRAP CSCLPi 
Do ea WRITE FORMAT to set IRESV4==>IRSTR = O (sets reed strobe low) 
(Read Strobe sete PAR IN H (Parity error) 


RO fn gpd ds: = 0 
JSR PC,T. sSETUP_ T20PK2 FOR WRITE FORMAT 
@T20PK2 ,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
PC, CHKTSSR sWAIT FOR SSR TO SET 
412% — ERROR IF FORCER=1 
ecs 420% s6R IF C SET (GOOD RE 
RO,R1 sSAVE CONTENTS OF TSSR 
ERRDES ERRNO, T208SSR ,PKTSSR DEVICE FATAL SSR FAILED TO SET 
; 
TRAP CSEROF 
-WORD 918 
-WORD T208SSR 
WORD PKTSSR 


:SET FATAL ERROR FLAG — 
;LOOP ON ERROR, IF FLAG SET “tes 


RAP 
Do ea WRITE Broil to set IRESV4==>IRSTR = 1 (sets read strobe high) 
MOV RES ,RO TIRESVS*=>IRSTR #1 
TUP T20PK2 FOR WRITE FORMAT 
:GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 


INC FATFLG 
CKLOOP 


JSR PC, sWAIT FOR saron ro. SET 

FOR OR eo ERROR IF FORCER=1 

Bcs 440% IF Cc Y Set. (GOOD RETURN) 

rT RO,R1 CAVE CONTENTS OF TSSR 

ERROF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR a - 
-WORD 919 
-WORDB T2068: 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 


Do e Write Subsystem READ STATUS 
JSR PC, T20SRD SETUP PACKET FOR READ STATUS 
MOV @TBOPK2 GET WRITE SUBSYSTEM COMMAND PACKET 


sSET THE PACKET ADORESS TO EXECUTE 
sWAIT O SET 


JSR ° SR FOR SSR T 

FORC 4S2¢ s;8@0FORCE ERROR IF FORCER=1 

ecs 460% 3BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERROF ERRNO, T2035SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
RAP CSEROF 
° loose 


:SET FATAL ERROR FLAG — 
;LOOP ON ERROR, IF FLAG Ser 


If Read Dete parity error NOT=0 Then Print Error 


INC FATFLG 
CKLOOP 


SEQ 0218 
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065704 
0644352 
065772 


002316 
3062 


JSR PC, T2OSETEXP 


MOV 
MOV Gea 


MOV 2(R25,2(R1) 
BIC * hae ,CRL) 
CLR Ro 

MOV @T208FR,R1 


MOV pL ge oR2 


MOV 
Fo PC ,.CKMSG2 


ORCERROR 472% ,NOTSSR 
ecs 480% 
NEXT . ERRNO 

472%: ERRHRD ERRNO, T2OCWP,MSGSTAT 

480%: CKLOOP 
FORCEXIT 555% 
MOV TSTPTR,R3 
CMP R3, @TBLEND 
BHIS 5558 
JMP 1008 

555%: 

ENDSUB 

TST FATFLG 
BEQ 560% 

JSR PC, CKDROP 

560%: 

JSR PC, TSTLOOP 
gcc 565% 
JAP T18LooP 

565%: 

EXIT TST 


oe 
‘LOCAL STORAGE FOR THIS TEST 
i- 


T20MSK : 


.BYTE tC<000> 
-BYTE *t€<340> 
BYTE seenk re 


SEQ 0219 


0-7 pag CNOT TESTING) 
TATUS 


GH 
sLOW RECV ADDRESS FOR CKMSG2 


sEXPD ADDRESS 
;NUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3830 

;8R IF YES 

REPORT ERROR 

' TRAP  CSERHRO 


, .- WORD 
. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 
3880 
sRESTORE ones TSTBLK POINTER 
IF 
300 ANOTHER TSTBLK PATTERN 


344/4/441//7/7 END SUBTEST ////////47/ 
10074: 
TRAP — CSESUB 
ANY FATAL ERRORS ? 
}BRANCH IF NOT 
;TRY TO OROP THE UNIT 
100 ITERATIONS? 
3 
}LOOP UNTIL ITERATIONS DONE 
34444444444 EXIT TEST 4444444407 
TRAP CSEXIT 


-WORD 110075-. 


;MASK OF UNTESTED BITS IN READ STATUS 
{UNTESTED BITS ARE SET TO 1 
TOYTE 1 MASK. CPARERR, IRESV2, IRESVI 

tOYTE 2 CTIMER A TIMER B UNDEFINED 21 :0>) 
MAKE IT EVEN 


| 
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9595 
9396 geeaaz T20EXP: :BEGIN EXPECTED DATA BUFFER 
959 000000 .WORD 0 MESSAGE TYPE 
S309 Ges4i6 oooee ‘WORD OO 1ROPCR ne 
. ] 
Se50 G648s0 soooee “WORD 0 iXSTO 
9601 064422 000000 “WORD 0 iXST1 
064424 000000 “WORD 0 sxST2 
960 000000 "WORD 0 iXSTS 
9604 064450 000000 “WORD 0 iXST4 CALWAYS PRESENT FOR WRITE SUB.) 
9605 064432 T20EXSTA: .BLKB 64. SEXPECTED READ STATUS AND WRITE FIFO DATA 
9606 064532 T20€XEND: sEND EXPECTED DATA BUFFER 
& 3 ¢ 
9608 LOCAL TEXT MESSAGES FOR TEST 
9610 wat 
9611 064532 122 145 141 TST20I0: ,ASCIZ ‘Read/urite Date Parity’ 
9612 064561 127 122 111 T20SSR: .ASCIZ ‘wRITE CHARACTERISTICS Failed’ 
9613 064616 127 122 111 T202SSR:.ASCIZ ‘WRITE SUBSYSTEM Clicite Mice? Feiled’ 
9614 064662 127 122 111 T203SSR:.ASCIZ ‘WRITE SUBSYSTEM (Reed Stetus) Fei led’ 
9615 064727 127 122 111 T204SSR::ASCIZ ‘WRITE SUBSYSTEM (Write Nor) Failed 
9616 064772 127 122 111 T205SSR:-ASCIZ ‘WRITE SUBSYSTEM (Write FIFO) Fei led’ 
9617 065036 127 122 111 T206SSR:.ASCIZ ‘WRITE SUBSYSTEM (Reed FIFO) Feiled’ 
9618 065101 127 122 111 T208SSR:-ASCIZ ‘WRITE SUBSYSTEM (Write Forest) Fei led’ 
9619 06514 122 145 141 T ¢ :ASCIZ ‘Read Date Parity Error (PARERR) Feiled to Set after Unite set FP Perity’ 
9620 065256 i122 145 141 T2ORSF: .ASCIZ ‘Reed Date Perity Error (PARERR) Feiled to Cleer y bo. 
eas 065357 i122 145 141 T : a ‘Reed Date Perity Error C(PARERR) occurred in Dete L 
9623 
S424 3¢ 
bee F 3s CLEAR MESSAGE BUFFER 
9627 065452 F20CLRBUF : ' 
9628 065452 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
9629 065456 012701 065752 MOV @T208FR,R1 iGET MESSAGE BUFFER ADORESS 
065462 012702 000120 MOV  @T20BEND-T208FR,R2 iSIZE OF MESSAGE BUFFER IN BYTES 
963 105021 10: CLRB (Ride CLEAR A BYTE 
065470 005 DEC 3OséaR2. ? 
065472 003375 BGT 108 i8R iF NO 
9634 065474 RTS = PU }RETURN 
9635 
9b 36 s¢ 
3637 ; SETUP T20PK2 PACKET FOR READ STATUS 
9639 065476 20SRD: 
9640 065476 004737 065452 PC, TZOCLRBUF sCLEAR MESSAGE BUFFER 
9641 065502 012700 066110 @T200T2,RO {WRITE SUBSYSTEM DATA BUFFER 
065506 112720 00005 MOVB = @PW. ROSTATUS, (RO)+ :STORE READ STATUS COMMAND IN BSELO 
9643 065512 105010 CLRB CRO) CLEAR BSEL1 
9644 065514 000207 RTS PC + RETURN 
9645 
iit : 
348 } SETUP T20PK2 PACKET FOR WRITE NPR 
4 
9650 ; INPUT: 
6651 ; RO CONTAINS BSEL1 NPR DATA 
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9652 
9653 
9654 065516 
9655 065516 004737 065452 
9656 065. 012701 066110 
9657 065 112721 000011 
9658 065532 110011 
9659 0655 207 
9660 
9661 
9662 
9663 
9664 
9665 
9666 
9667 065536 
065536 004737 065452 
9 065542 012701 066110 
9670 065: 112721 000003 
9671 065552 110021 
9672 065554 000207 
9673 
9674 
9675 
9676 
9677 
9678 
9679 
9680 065556 
9681 065556 
065562 004737 065452 
9683 065566 012702 066110 
065572 112722 000004 
9685 065576 110022 
9686 06 S022 
9687 065602 112122 
065604 S 
9689 065606 003375 
9690 065610 000207 
9691 
9692 
9693 
9694 
9695 
9696 
9697 
9698 065612 
065612 737 005452 
9700 065616 012701 066110 
9701 065622 112721 000007 
9702 06 110021 
9703 065630 207 
9704 
9705 
9706 
9707 
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T2OWNPR: 
JSR PC, T2OCLRBUF 
MOV R1 
MOVE oe - NPR. (R1)+ 
MOVB RO, CR1) 
RTS PC 
co 
; SETUP T20PK2 PACKET FOR READ FIFO 
o 
; INPUT: 
t RO CONTAINS SEL2 BYTE COUNT 
+20RFIF 


"JSR PC, T2OCLRBUF 
MOV @T200T2,R1 


s;CLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE NPR_IN BSELO 
sSTORE NPR DATA IN BSEL1 
sRETURN 


s;CLEAR MESSAGE BUFFER 
sWRITE SUBSYSTEM DATA BUFFER 


MOVB oPw. RFIFO, CR1)+ ;STORE READ FIFO IN BSELO 
MOVB RO, CR1)+ ;STORE BYTE COUNT IN BSEL1 
RTS PC ;RETURN 

3¢ 

; SETUP T20PK2 PACKET FOR WRITE FIFO 

3 

: INPUT 

: “RO CONTAINS BYTE COUNT 

3 Ri CONTAINS DATA PATTERN BLOCK ADDRESS 

T2O0wFIF 
SAVREG 


JSR PC, T2OCLRBUF 
MOV @T200T2,R2 


sSAVE R1-RS UNTIL i RETURN 


;STORE WRITE FIFO IN BSELO 
sSTORE BYTE COUNT IN BSEL1 
s;CLEAR SEL2 CUNUSED) 
sSTORE DATA PATTERN BYTE 
oo ¥, LL BYTES? 

3 

RETURN 


sCLEAR MESSAGE BUFFER 
sWRITE SUBSYSTEM DATA BUFFER 


MOVB OPW .WFIFO,CR2)+ 
mMOVB RO,CR2)¢ 
CLR CR2)+ 
10$: MOVB CR1)+,CR2)+ 
DEC RO 
BGT 10$ 
RTS PC 
3¢ 
; SETUP T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER 
3 
3: INPUT: 
$ RO CONTAINS DRIVING DATA PATTERN 
4° 
T2OWFMT: 
Js es T2O0CLRBUF 
MOV @T200T2.R1 
MOVB 


oPW.WFMT, tris 
MOVB Be: oCR1D+ 


Sd 
; SETUP T20PK2 PACKET FOR WRITE MISC. 


; RO CONTAINS WRITE MISC DATA 
| ed 


iSTORE WRITE FORMAT IN BSELO 
sSTORE DATA WORD IN BSEL1 
RETURN 


SEQ 0221 





| 
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SEQ 0222 


| 9709 065632 T2OWMISC: 
9710 065632 012701 066110 MOV @#T200T2,R1 pt SA | SUBSYSTEM DATA BUFFER 
9711 065636 112721 000010 MOVB @PW.WMISC,CR1)+ sSTORE WRITE MISCELLANEOUS IN BSELO 
9712 065642 110011 MOVB RO,CR1) sSTORE INVERT EXTENDED FEATURES IN BSEL1 
| dE 065644 000207 RTS PC sRETURN 
3¢ 
pate + SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
9717 065646 f20SExT: 
9718 065646 012700 066110 MOV @T200T2,RO0 ;WRITE SUBSYSTEM DATA BUFFER 
9719 065652 112720 000010 MOVB oP. WMISC CRO)>+ +STORE WRITE MISCELLANEOUS IN BSELO 
9720 065656 112710 000200 MOVB @MS.EXT, CRO) ;STORE INVERT EXTENDED FEATURES IN BSEL1 
eres 065662 000207 RTS PC sRETURN 
3¢ 
ores 3; CLEAR EXPECTED DATA MESSAGE BUFFER 
9725 065664 T20CLEXP: 
9726 065664 012701 064412 MOV @T20EXP ,R1 3GET EXPO ADDRESS 
9727 065670 C1i2700 000120 MOV @T20EXEND - T20EXP ,RO ;GET EXPD SIZE 
9728 065674 105021 108: CLRB CR1)+ ;CLEAR A BYTE 
9729 065676 005300 DEC RO 3 ? 
9730 065700 003375 BGT 10% ;BR IF NO 
9731 065702 000207 RTS PC sRETURN 
9732 
9733 3¢ 
dt 3Set WORDS 0-7 of expd message BUFFER = to recv since not testing 
es 
9736 065704 T20SETEXP: 
9737 065704 012702 064412 MOV @T20EXxP ,R2 sGET EXPO 
9738 065710 012703 065752 MOV @T20BFR,R3 iGET READ STATUS oe BUFFER 
9739 065714 012700 000010 MOV 8. ,RO ;SET WORDS 0-7 EXP=RECV 
9740 065720 012322 S$: MOV (R3}+,(R2)+ sSET EXPD=RECV 
9741 065722 005300 DEC RO ;00NE WORDS 0-7 WORDS? 
9742 065724 003375 BGT 5$ ;68R IF NO 
9743 065726 000207 RTS PC ;RETURN 
9744 
9745 
9746 
9750 3 
ores sWRITE CHARACTERISTICS COMMAND PACKET 
: 
9753 065730 T2O0PACKET: sCOMMAND PACKET FUR TEST 
9754 065730 100004 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
9755 065732 065740 . WORD T2O0DATA sADDRESS OF CHARACTERISTICS BLOCK 
9756 065734 000000 . WORD t¢] 
pt 1 065736 000012 - WORD 10. sMINIMUM MESSAGE PACKET SIZE 
9759 065740 T20DATA: ;CHARACTERISTICS DATA BLOCK 
9760 065740 065752 . WORD T20BFR sADDRESS OF MESSAGE BUFFER 
9761 065742 000000 -WORD 9O 
9762 065744 000024 . WORD 20. ;LENGTH OF MESSAGE BUFFER 
9763 065746 000000 WORD t] ;ESS,ENB,EAI,ERI 
ores 065750 000007 WORD 7 sEXTENDED FEATURES UNIT NO. 
9766 
9767 sMESSAGE BUFFER FOR ALL TEST 17 COMMANDS 





wa 
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SEQ 0223 


T20BFR: sBEGIN MESSAGE BUFFER 

-WORD 0 sMESSAGE TYPE 

-WORD 0O iDATA FIELD LENGTH 

-WORD O sRBPCR 

-WORD O sXSTO 

-WORD QO sxXST1 

-WORD O Nets 

-WORD O XST3 

-WORD O ixST4 ho ah ty PRESENT FOR WRITE SUBSYSTEM 
T20BFSTA: .BLKB 64. sREAD STATUS AND WRITE FIFO BUFFER 
T20BEND: sEND OF MESSAGE BUFFER 
6 
sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
: 

.*¢, 41026177770 
T20PKe: 

WORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 

-WORD T200T2 sLOW ADDRESS OF DATA BLOCK 

-WORD sHIGH ADDRESS OF DATA BLOCK 

-WORD 10 sMINIMUM MESSAGE PACKET SIZE 
T200Te: sDATA BLOCK 

-BYTE 0O ;BSELO 

BYTE 0O sBSEL1 

-WORD O ;SEL2 

BLKB 64. sWRITE FIFO DATA OUTPUT BUFFER 

ENDTST 

L10073: 
TRAP CSETST 

-SBTTL TEST 10: MANUAL INTERVENTION 
;THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST”) 
sTHAT ALLOWS THE OPERATOR TO ONS OF 


HECK OUT VARIOUS ELEMENTS AND FUNCTI 
T CANNOT BE MANIPULATED BY THE PROGRAM ALONE. N 
sTHIS ROUTINE IS ST arf & IT FIRST PRINTS OUT A MENU OF SELECTABLE 
sSUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION 


CODE. 
sTHE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
FARE BY TYPING <CTRL-C> OR SELECTING CODE 7. 

sSELECTION CODES AND SUBROUTINES ARE: 

; 


: 


ROUTINE 


HELP. PRINTS THIS MENU 

TURN ON ALL wats LED INDICATORS 
TURN OFF ALL M7196 LED INDICATORS 
OFFLINE/ONLINE ATTENTION TEST 
WRITE-PROTECT TEST 

INITIATE TRANSPORT SERVO EXERCISER 
PRINT EXTENDED TRANSPORT STATUS 
EXIT CRETURN TO SUPERVISOR) 


NOU SUNrO 


EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 
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;PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 
; 


i CAUSES ALL THREE LED INDICATORS ON THE M7196 MODULE 
sTO BE ILLUMIN “4 AFTER INITIATING THIS ROUTINE, THE OPERATOR 
s;SHOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ALL LIT. 

i THIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 

sSET THE FORCE WRONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE 

"PROCESSOR NOT OK” LED. THEN IT ENTERS A LOOP THAT CONTINUALLY 

sWRITES THE LOW BYTE OF TSOB AND READS THE TSSR. THESE LATTER TWO 

OPERATIONS WILL CAUSE THE "NOT SSR” AND “DRIVING BUS” LED'S TO 
GLOW THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR 

; REASONABLY VISIBLE. 

é 


SINITIALIZES THE CONTROLLER TO CAUSE ALL LED’S TO 
sEXTINGUISH. 

i 

5 

: 


i THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A 
sWRITE CHARACTERISTICS COMMAND TO ENABLE ght. INTERRUPTS, 
sISSUES A_MESSAGE BUFFER RELEASE COMMAND, PRINTS A MESSAGE ON THE 
;CONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE 
sSWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. 

sEACH TIME THE TRANSPORT TR ANSITIONS FROM ON-LINE TO OFF-LINE OR 

;VICE - VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM 
sWILL REPORT THE INTERRUPT ANDO THE CURRENT STATE OF THE TRANSPORT. 

sTHE OPERATOR SHOULD VERIFY THAT “ REPORTED STATE MATCHES THE 
iSTATE INDICATED SY THE LED ON THE FRONT PANEL OF THE TRANSPORT. 
sIN ADDIT bea WHEN THE TRANSPORT IS PLACED OFF-LINE, THE PROGRAM 
s ISSUES A_ SEQUENCE oe on elicr coon COMMANDOS (READ, WRITE, POSITION, ETC. 
;AND VERIFIES THAT, FOR EACH COMMAND, FUNCTION REJECT TERMINATION 

+ al ALONG uItH. THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING 
. : 


i THIS poo fee INSTRUCTS be Ng yrte TO MOUNT A SCRATCH 

sTAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN 

sWAITS FOR THe OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
;UPON THE RESP THE PROGRAM VERIFIES THAT THE roeee ORT SHOWS 

A WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 

s TAPE — EXPECTS THE APPROPRIATE ERROR TERMINATION et Sl THAT 


es PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 
sAN ERROR IS REPORTED. 

5 

i 


3 

s INSTRUCTS THE OPERATOR TO PLACE THE TAPE TRANSPORT(S) 

sON-LINE CIF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED 
iSTATUS READOUT. FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE 
;THE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF T 

s TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING 
sSUCH IS ISSUED. 


SEQ 0224 


a + sti— - 
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066414 012746 000001 MOV #1, -(SP) 
066420 010600 MOV SP, 


| SEQ 0225 
| TEST 10: MANUAL INTERVENTION 
9883 3 | 
9884 ; 
9865 L ' 
9886 > | 
9887 066216 BGNTST 
066216 T10:: 
9892 066216 RFLAGS RO ;GET OPERATOR FLAGS 
066216 104421 TRAP CSRFLA 
9893 066220 001403 BEQ 218 BR OK TO RUN 
9894 066222 012700 071570 MOV @T3ENE ,RO rest Not EXECUTED” 
9895 066226 000402 BR 3$ JUMP IF NOT FIRST TEST 
9896 066230 218: 
9897 066230 012700 072705 MOV @T38ID,RO ;TEST ID MESSAGE 
9898 066234 004737 016510 3%: JSR PC, TSTSETUP ;00 THE COMMON SETUP 
9899 066240 004737 017762 JSR PC, CHKMAN :IS MANUAL INTERVENTION ALLOWED? 
9900 066244 103402 Bcs 22% ;6R, IF MANUAL INTER ALLOWED 
9901 066246 000137 070772 JMP 64$ ;JUMP IF NOT ALLOWED 
9902 066252 228: 
9906 066252 C05037 002222 2$: CLR FATFLG ;CLEAR THE FATAL ERROR FLAG 
9907 066256 012737 176750 071004 MOV 65000. , T38DLY ;SET UP DELAY COUNTER 
9908 066264 004737 015774 S$: JSR PC, SOFINIT :00 A SOFT INIT 
9909 066270 103427 BCS 238 :BRANCH IF OK 
9910 066272 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
9911 066274 032701 000200 BIT @SSR,R1 ;CHECK FOR TSSR SET 
9912 066300 001023 BNE 233 ;KEEP GOING IF NOT SET 
9913 066302 DELAY 250 ;CALL DELAY ROUTINE 
066302 012727 000250 MOV 0250, (PC)+ 
066306 000000 . WORD 
066310 013727 002116 MOV LSDLY,(PC)+ 
066314 000000 .WORD 0 
066316 005367 177772 DEC -6(PC) 
066322 001375 BNE 
066324 005367 177756 DEC *3(PC) 
066330 001367 BNE .-20 
9914 066332 005337 071004 DEC T38DLY ;BUMP COUNTER DOWN 
9915 066336 001352 BNE 5$ :BR, IF MORE TIME LEFT 
9916 066340 ERROF ERRNO,SFIERR,SFIMSG }REPORT FATAL ERROR 
066340 104455 TRAP CSEROF 
066342 001751 WORD 1001 
3652 .WORD SFIERR 
066346 012034 ae .WORD SFI 
9917 066350 012700 072732 23%: MOV @MIMENU, RO “yy sMENU_OF MANUAL_INTERVENTIONS 
9918 066354 012701 000005 MOV os, -  %  SMAXIMUM ALLOWED SELECTION 
9919 066360 004737 017540 JSR PC ,GETSEL : :GO GET THE OPERATORS SELECTION 
9920 066364 010004 MOV.  RO.R4 ;GET NUMBER FROM ROUTINE 
9921 066366 006304 ASL. RA sCONVERT TO WORD OFFSET 
9922 066370 000174 066374 JMP @64(R4) ;JUMP TO 
9923 066374 066252 6%: .WORD 2 sRETYPE THE MENU 
9924 066376 066410 .WORD 10% : 1 TURN ON LED'S 
9925 066672 -WORD 15% ; 2 TURN OFF LED'S 
066402 067124 WORD Q ; 3 ONLINE ATTENTION 
9927 066404 067560 -WORD 25% ; 4 WRIT 
9928 066406 070514 .WORD 35% ; 5S EXTENDED TRANSPORT STATUS 
9929 066410 10%: PRINTF @T38MS2 sTELL OPERATOR TO CNTRL-C FOR EXIT 
066410 012746 072601 MOV @T38MS2, -(SP) 
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SEQ 0226 


TRAP CSPNTF 


ADD @4,SP 

sSET PACKET TO INITIAL VALUES 

:00 SOFT INIT OF CONTROLLER 

36R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
«WORD 1002 
-WORD SFIERR 
-WORD SFIMSG 

sSET UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 

aS WRITE CHARACTERISTICS 

F COMMAND ISSUED OK 

iSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC ron 
TRAP CSERHRD 
. WORD 3 
-WORD WRTMSG 
-WORD SFIMSG 


sCLEAR BIT 04 
sWRITE MISC COMMAND 
sSET UP NEW WRT. SUBSYS MEM. COMMAND 


sSET THE PACKET ADDRESS 


Y 
sSAVE CONTENTS OF 
;DEVICE FATAL SSR hemeees” 1 SET 


CSEROF 
TMoRD 1004 
-WORD T38SSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
RAP CsCLPi 


sRAISE THE PRIORITY 
MOV @PRIO7,.RO 
TRAP C$SPRI 

sASSUME INTERRUPTS ARE ENABLED 

sARE TTI pereRrts ON ? 

;BRANCH YES 

sFLAG Ser  . INTERRUPTS OFF 

NABLE INTERRUPTS 


sLOWER INTERRUPT BR LEVEL 
MOV @PRIOO,RO 
TRAP C$SPRI 


06 000004 
004737 073342 JSR PC, T38REST 
004737 015774 JSR PC. SOFINIT 
103405 BCS 1008 
010001 MOV RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 
104455 
001752 
003652 
012034 
013737 002202 071530 100%: MOV UNITN, T380SW 
012704 071510 MOV OT38PK2,R4 
004737 010662 JSR PC,WRTCHR 
103405 BCS 110% 
010001 MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SFIMSG 
104456 
001753 
005056 
012034 
1108: 
112737 000000 071021 MOVB #0; T388S1 
112737 000011 071020 MOVB T38BS0 
012704 071010 MOV ot SePAcKer. R4 
3 
;NOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED 
3 
010465 000000 MOV R4, TSDBCRS) 
004737 016336 JSR PC: CHKTSSR 
103405 BCS 1508 
010001 MOV RO,R1 
ERROF ERRNO, T38SSR,PKTSSR 
104455 
001754 
072206 
012046 
150%:  CKLOOP 
104406 
SETPRI @PRIO7 
012700 000340 
104441 
005037 070776 CLR TTION2 
032737 000100 177560 BIT #100, B@TTICSR 
001005 BNE 7018 
005237 070776 INC TTION2 
052737 0v0100 177560 BIS #100, B@TTICSR 
012701 000060 701$: MOV @TTIVEC,R1 
011137 071000 MOV (Ri) Tysav2 
012721 070276 MOV 90%, (R1)+ 
011137 071002 MOV (R1), TPSAV2 
012711 000340 MOV @PRIO7,(R1) 
SETPRI #PRIOO 
012700 000000 
104441 
012701 177777 MOV @-1,R1 


sDATA TO WRITE TO TSOB 
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24 12%: NOP ;ALLOW OPERATOR TO TYPE tC 
012702 001750 MOV #1000. ,R2 ;SET-UP INNER LOOP 
110165 000000 14%:  MOVB Ri, TSDBCRS) ;WRITE DATA TO TSOB 
016 000002 MOV TSSRCRS),RO iREA D TSSR 
005: DEC R2 ;REDUCE INNER COUNT 
001372 BNE 14% ;LOOP TILL EXPIRES 
7 BR 12% ;LOOP UNTIL HALTED 
15%: PRINTF #T38MS2 :TYPE CNTL C TO EXIT 
012746 072601 V @T38MS2, -(SP) 
012746 000001 MOV »-(SP) 
01 MOV RO 
104417 TRAP = CSPNTF 
062706 000004 ADO ‘ 
004737 015774 JSR PC, SOFINIT :D0 SOFT INIT OF CONTROLLER 
103405 BCS 2008 ;BR IF SOFT INIT = 
010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
104455 TRAP  CSEROF 
001755 .WORD 1005 
3652 "WORD SFIERR 
012034 200% -WORD SFIMSG 
013737 002202 071530 MOV UNITN, T38DSW ;SET UNIT NUMBER 
012704 071510 MOV OT3BPK2,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
737 010662 JSR PC, WRTCHR ;ISSUE WRITE CHARACTERISTICS 
103405 Bcs 210% ;8R, IF COMMAND ISSUED OK 
010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ‘WRITE CHARACTERISTISC FAILED 
104456 TRAP CSERHRD 
001756 . WORD 
5056 "WORD WRTMSG 
012034 “WORD  SFIMSG 
PR GREEEAEREHERREREAGEERAARERARAEREEARREEAEARREERERRAREREEAREREHESSE 
3 
; THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF 
3 
3 A ee i ed ae a AS 
112737 071021 move #0, 738881 ;CLEAR BIT 
112737 5 071020 MOVB  25,7388S0 ;STOP DRIVE “TEST 22 
012704 07101 MOV OT3BPACKET ,R4 ;SET UP NEW WRT. SUBSYS MEM. COMMAND 
010465 MOV R4, TSDBCRS) SET THE PACKET ADDRESS 
004737 016336 JSR PC: ,CHKTSSR ‘WAIT FOR SSR TO SET 
103405 BCS 250 ;BR IF CARRY SET (GOOD RETURN) 
010001 MOV RO Ri ;SAVE CONTENTS OF TSSR 
ERROF ERRNO, T38SSR.PKTSSR {DEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSEROF 
001757 .WORD 1007 
072206 "WORD T38SSR 
012046 "WORD PKTSSR 
250%:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP = CSCLP1 
SETPRI #PRIOT ;RAISE THE PRIORITY 
012700 000340 @PRIO7,.RO 
104441 TRAP  C$SPRI 
005037 070776 CLR TTION2 ;ASSUME INTERRUPTS ARE ENABLED 


! 
i 
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10023 067044 
10024 oS2 
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032737 000100 177560 BIT 
001005 BNE 
005237 070776 INC 
737 000100 177560 BIS 
012701 7108: MOV 
011137 071000 MOV 
012721 070276 MOV 
011137 071002 MOV 
012711 000340 MOV 
SETPRI 
012700 000000 
104441 
000240 2608: NOP 
000776 BR 
208: PRINTF 
012746 072601 
pty Shes 000001 
104417 
062706 000004 
SETPRI 
012700 000000 
104441 
005037 002224 CLR 
004737 015774 JSR 
103405 6cs 
010001 OV 
ERROF 
104455 
001760 
003652 
012034 
3008: 
013737 002202 071530 MOV 
012737 000040 071526 MOV 
012704 071510 MOV 
737 010662 JSR 
103405 BCS 
010001 Vv 
ERRHRD 
104456 
001761 
005056 
012034 
3108: 
012704 0/1540 MOV 
010465 000000 MOV 
004737 016250 a 
01 1 000002 MOV 
032701 000100 BIT 
001402 BEQ 
052702 000100 BIS 
052702 000200 320%: BIS 
020201 CMP 
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#100, 8@TTICSR 
710% 

TTION2 

#100, B@TTICSR 
fara tesave 
@PRIO7,(R1) 


260% 


@T38MS2 


@PRIOO 


INTRECV 
PC, SOFINIT 
300% 


RO,R1 
ERRNO, SFIERR, SFIMSG 


UNITN, T38DSW 
@BITS, TS8EAI 
@T38PK2 ,R4 
PC, ,WRTICHR 


RO,R1 
ERRNO, WRTMSG, SFIMSG 


OT3BPK3 RO 
Ra, TSDBCRS) 


TSSRCRS).R1 
@OFL ,R1 


@0FL.R2 
@SSR ,R2 


SEQ 0228 


;ARE TTI INTERRUPTS ON ? 

;BRANCH IF YES 

sFLAG SET IF INTERRUPTS OFF 

;ENABLE INTERRUPTS 

sSTART OF TTI VECTOR 

;SAVE THE CURRENT TTI VECTOR 

sSET NEW INTERRUPT ROUTINE 

;SAVE THE VECTOR PRIORITY 

;USE PRIORITY SEVEN 

;LOWER INTERRUPT 6R LEVEL 
MOV @PRIOO,.RO 
TRAP  C$SPRI 

;ALLOW CNTL C 

;LOOP UNTIL STOPPED 

;TELL'EM WHAT TO TYPE 

v @T38MS2, -(SP) 

mov at. (SP) 
TRAP  C$PNTF 
ADO 64,SP 

;LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 


TRAP C$#SPRI 
;CLEAR INTERRUPT a, FLAG 
300 SOFT INIT OF CONTROLLER 
7BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR ae pay 


CSEROF 
- WORD 
-WORD SFIERR 
- WORD 
sSET UNIT NUMBER IN PACKET 
sENABLE ATTENTION INTERRUPTS 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
- WORD 
-WORD WRTMSG 
-WORD SFIMSG 


sSET UP NEW PACKET FOR MESS BUF REL 
sMESSAGE BUFFER RELEASE,ACK,CVC=1 CMD 
sWAIT FOR SSR TO SE 

sMAKE SURE ALL IS CLEAR 

iGET TSSR STATUS 


sSET UP EXP 
sIS EVERYTHING OK 
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10069 067 
10073 067302 
067 


06 
10074 067312 
10075 067314 

06 


06 
10076 067334 
06 


S2 
10098 067526 
10099 067530 


TESTS 
INTERVENTION 
001404 
104456 


c¢) 


000340 


0444 
005037 070776 
032737 000100 


901005 

005237 070776 
737 000100 

012701 000060 

011137 071000 

012721 070276 

011137 071002 

012711 000340 

012700 000000 

104441 

000240 

005737 002224 

001001 

000773 

012746 072276 

012746 000001 

010600 

104417 

062706 

016501 

032701 0v0100 

001011 

012746 072326 

012746 

01 

104417 

062706 000004 

000410 


MACRC YOS.02 


177560 


177560 


3508: 


7208: 


360%: 


3708: 


380$: 


Monday 16-Sep-85 


CKLOOP 
PRINTF 


PRINTF 


SETPRI 


NOP 
TST 
BNE 


BR 
PRINTF 


MOV 
BIT 


BNE 
PRINTF 


BR 
PRINTF 
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350% 
ERRNO, T38SST,PKTSSR 


@T38MS1 
@T38MS2 


@PRIO7 

TTION2 

#100, @@TTICSR 
7208 


(R1), TVSAV2 
»CR1)+ 
(Ri), TPSAV2 
@PRIO7,(R1) 
00 


INTRECV 
370% 
360$ 
@TSBINT 


HS» at tal 


390% 
@T380FL 


sBR, IF ALL IS 


WELL 
;DEVICE FATAL SSR PASLED TY Se 


WORD 
;LOOP ON ERROR, IF FLAG SET 
;TELL OPERATOR TO TOGGLE, SHITCH 


ADD 
sTELL OPERATOR TO DO tC 
MOV 


sRAISE THE PRIORITY 


TRAP 
sASSUME_INTERRUPTS ARE ENABLED 
sARE TTI — S ON ? 


sBRANCH 


HIF 
iFLAG SET ie INTERRUPTS OFF 
RRUPTS 


sUSE PRIORITY SEV 


EN 
sLOWER INTERRUPT BR a. 


sALLOW CONTROL C 


sDID AN INTERRUPT OCCUR ? 


FOR INTERRUPT 
s“INTERRUPT RECEIVED” 


sBRANCH IF YES 
sWAIT SOME MORE 


sREAD TSSR STATUS 


sCHECK THE OFF-LINE BIT 
3BR, IF ORIVE IS OFF-LINE 
:“ORIVE IS NOW ON-LINE” 


sALMOST DONE 
s“ORIVE IS NOW OFF-LINE” 


THE CURRENT TTI 
Sey NEW INTERRUPT ROUTINE 
sSAVE THE VECTOR PRIORITY 


SEQ 0229 


> ae'y cal 


@T38MS2, -(SP) 
#1, -(SP) 
CSPNTF 

04,SP 


@PRIO7.RO 
C#SPRI 


@PRIOO,RO 
C#SPRI 


@T38INT, -(SP) 
#1, -(SP) 

SP: RO 

CSPNTF 

@4,SP 


@TS8ONL , -( SP) 
#1, -(SP) 


CSPNTF 





RR A 
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SEQ 0230 
TEST 10: MANUAL INTERVENTION | 
067530 012746 072362 MOV @T380FL, -(SP) | 
067534 012746 000001 MOV @1,-(SP) 
067540 010600 MOV sp 
067542 104417 TRAP CSPNTF 
067544 062706 000004 : 

10100 067550 005037 002224 390%: CLR INTRECV ;CLEAR INTERRUPT FLAG 

10101 067554 000137 067176 JMP 300% :TRY AGAIN 

10102 067560 25%: | GMANIL T38MSG,T38DAT,-1,NO ;WAIT FOR OPERATOR TO MOUNT TAPE 
067560 104443 TRAP C$GMAN 
067562 000404 BR 100008 
067564 073340 .WORD T38DAT 

7566 120 WORD TSCODE 
067570 072645 ‘wORD =T 
067572 177777 [WORD -1 
067574 100005: 

10103 067574 BNCOMPLETE 25% sRETRY IF ERROR 
067574 103371 Bcc 25% 

10104 067576 005737 073340 TST T38DAT ;0ID OPERATOR SAY ‘YES‘ ? 

10105 067602 ¢01002 BNE 278 ;BRANCH IF YES 

10106 067604 000137 066252 JMP 2¢ ;RETURN TO MAIN MENU 

10107 067610 278: 

10108 067610 004737 015774 JSR PC,SOFINIT :D0 SOFT INIT OF CONTROLLER 

10109 067614 103405 BCS 400% :BR IF SOF1 INIT = a 

10113 067616 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

10114 067620 ERROF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
067620 1 TRAP CSEROF 
067622 001763 .WORD 1011 
067624 00 “WORD SFIERR 
067626 012034 WORD I 

10115 067630 400%:  CKLOOP ;LOOP IF SELECTED 
067630 104406 TRAP — CSCLP1 

10116 067632 013737 002202 071530 MOV UNITN, T38DSW :SET UNIT NUMBER 

10117 067640 012704 071510 MOV OT38PK2,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

10118 067644 004737 010662 JSR PC,WRTCHR + TSSUE | WRITE CHARACTERISTICS 

10119 067650 103405 BCS 410% :8R, IF COMMAND ISSUED OK 

10123 067652 010001 MOV RO,R1 i SAVE TCONTENTS OF TSSR 

10124 067654 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
067654 104456 TRAP oC 
067656 001764 .WORD 1012 
067660 005056 “WORD WRTMSG 
067662 012034 [WORD SFIMSG 

10125 067664 410%: | CKLOOP ;LOOP IF SELECTED 
067664 104406 TRAP —- CSCLP1 

10126 067666 013701 071034 MOV T38BFR+6,R1 :PTCK UP XSTO CONTENTS 

10127 067672 010102 MOV R1.R :SE~ UP EXPECT 

10128 067674 052702 000004 BIS @B1T2,R2 :SET UP THE WRITE LOCKED BIT 

10129 067700 020102 CMP R1.R2 ;ARE THEY CORRECT 

10130 067702 001406 BEQ 4308 ;BR, IF ALL IS WELL (OK) 

10134 067704 ERRHRD ERRNO, T36WRL,.EXPREC ;"WRITE LOCKED BIT IS NOT SET eTc.* 
067704 104456 TRAP —- C8E 
067706 001765 .WORD 1013 
067710 072024 "WORD T38WRL 
067712 015474 “WORD EXPREC 

10135 067714 005237 002222 INC FATFLG ;SET FATAL FLAG 

10136 067720 430%: CKLOOP ;LOOP IF SELECTED 
067720 1 CsCLP1 


04406 TRAP 
10137 067722 005737 002222 TST FATFLG sWAS THE DRIVE NOT WRITE LOCKED 
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SEQ 0231 
TEST 10: MANUAL INTERVENTION 

10138 067726 001402 BEQ 4353 :8R, IF FLAG NOT SET 

10139 067730 000137 066252 JMP 28 ;RE-WRIT 

10140 067734 017737 113164 071562 435%: MOV SFREE , T38WR {SET UP WRITE BUFFER ADDRESS 

10141 067742 012704 071560 MOV OT3EPK4 RO ;GET PACKET ADORE 

10142 067746 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS 

10143 067752 004737 016250 JSR PC. WAITE sWAIT FOR SSR TO SET 

10144 067756 016501 000002 MOV TSSRCRS :GET TS 

10145 067762 012702 100206 MOV osc | Sok 62T1!8IT2, R2 SET UP EXPECTED 

10146 067766 020102 CMP R1,R2 sARE THEY EQUAL (CORRECT) 

10147 067770 001404 BEQ 4408 i8R. IF CCRRECT STATUS 

10151 067772 ERRHRO ERRNO, TS8WRT,PKTSSR ;"TSSR INCORRECT AFTER WRITE COMMAND 
067772 104456 CSERHRD 
067774 001766 THORD 1014 
067776 071740 “WORD TS38URT 
070000 012046 “WORD PKTSSR 

10152 070002 440%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

7 104406 TRAP = CSCLP1 

10153 070004 225701 071034 MOV T38BFR+6,R1 ;READ XSTO CONTENTS 

10154 070010 ¢10102 MOV R1,R2 ;SET UPR EXPECTED 

10155 070012 052702 004000 BIS eeirit. R2 ;SET THE WRITE LOCK ERROR BIT (XSTO) 

10156 070016 020102 CMP R1,R2 iA THE BIT SET 

10157 070020 001404 BEQ 450% BR, IF IT WAS (GOOD) 

10161 070022 ERRHRD ERRNO, TS8WLE ,EXPREC 1OUAITE LOCK ERROR BIT NOT SET“ 

070022 104456 TRAP  CSERHRD 
070024 001767 .WORD 1015 

07 072065 "WORD T3@WLE 
070030 015474 [WORD EXPREC 

10162 070032 450%:  CKLOOP ;LOOP IF SELECTED 
070032 104406 TRAP  CSCLP1 

10163 070034 000137 066252 ump 2¢ ;GO0 BACK TO MENU 

10165 PALHESAAERSEHHEAKRAKESRAEEHERASKEREABEAKAASARSEASRSKABRAKRSSEAARK SARAH ASAHEARH 

SERVO EXERCISER NO LONGER USED 

10167 SSESSSSHKSSSSSSSSSASSSSASSSSSSSSSSSSKSESSESASSESSESHEESEEEEEEEEEEEEEEEEEEE 

10168 070040 $08: 

10169 070040 PRINTS ¢@T38MS3 ;"EXE ANY OTHER MENU SELECTION To STOP 
070040 012746 071645 MOV T38MS3, -(SP) 
070044 012746 000001 MOV $1. -csP5 
070050 010600 MOV <RO 
070052 104414 TRAP CSPNTB 
070054 062706 000004 ADO 64,SP 

10170 070060 004737 073342 JSR PC, T38REST :SET PACKET TO INITIAL VALUES 

10171 070064 004737 015774 JSR PC. SOFINIT :00 SOFT INIT OF CONTROLLER 

10172 070070 103405 Bcs 5008 ;8R IF SOFT INIT = OK 

10176 070072 010001 MOV RO.RL ;SAVE CONTENTS OF TSSR 

10177 070074 ERROF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
070074 104455 TRAP CSEROF 
070076 001770 .WORD 1016 
070100 003652 "WORD SFIERR 
070102 012034 “WORD SFIMSG 

10178 070104 013737 002202 071530 500%: MOV UNITN, T380SW ;SET UNIT NUMBER 

10179 070112 012704 071510 MOV @T38PK2,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

10180 070116 004737 010662 JSR PC,WRTCHR SISSUE WRITE CHARACTERISTICS 

10181 070122 103405 BCS 510% 38R, IF COMMAND ISSUED OK 

10185 070124 010001 MOV RO.R1 SAVE CONTENTS OF TSSR 

10186 070126 ERRHRD ERRNO. WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
070126 104456 TRAP  CSERHRD 
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SEQ 0232 
TEST 10: MANUAL INTERVENTION 
070130 001771 .WORD 1017 
070132 005056 “WORD WRTMSG | 
070134 012034 “WORD SFIMSG 
10187 070136 5108: 
10188 070136 112737 000000 071021 MOVE 0,7388S1 ;CLEAR BIT 04 
10189 070144 112737 000020 071020 MOVB $00.7 T388S0 sEXECUTE DRIVE TEST 22 
10190 070152 012704 071010 MOV @T3BPACKET,R sSET UP NEW WRT. SUBSYS MEM. COMMAND 
10191 070156 010465 000000 MOV R4, Ts06cRs) sSET THE PACKET ADDRESS 
10192 070162 004737 016336 JSR PC. CHKTS ;WAIT FOR SSR TO SET 
10193 070166 103405 acs 3508 :0R IF CARRY SET (GOOD RETURN) 
10194 070170 010001 MOV sSAVE CONTENTS OF TSSR 
10198 070172 ERROF ERANG, TS8SSR.PKTSSR {DEVICE FATAL SSR FAILED TO, SET 
070172 104455 TRAP C8 
070174 001772 .WORD 1018 
070176 072206 "WORD T38SSR 
070200 012046 “WORD PKTSSR 
10199 070202 550%:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
070202 104406 TRAP CSCLP1 
10200 070204 SETPRI @PRIO7 ;RAISE THE PRIORITY 
070204 012700 000340 MOV @PRIO7.RO 
070210 104441 TRAP C$SPRI 
10201 070212 005037 070776 CLR TTION2 sASSUME INTERRUPTS ARE ENABLED 
10202 070216 032737 000100 177560 BIT #100, S@TTICSR sARE TTI INTERRUPTS ON ? 
10203 070224 001005 BNE 555% ;BRANCH IF YES 
10204 070226 005237 070776 INC TTION2 3FLAG SET IF INTERRUPTS OFF 
10205 070232 052737 000100 177560 ers #100, S@TTICSR : E INTERRUPTS 
10206 070240 012701 000060 555%: MOV @TTIVEC,R1 sSTART OF TTI VECTORS 
10207 070244 011137 071000 MOV (R1), TVSAV2 sSAVE THE CURRENT TTI VECTOR 
10208 070250 012721 070276 MOV #5908, (R1)+ 3SET NEW INTERRUPT ROUTINE 
10209 070254 011137 071002 MOV (R1), TPSAV2 ;SAVE THE VECTOR PRIORITY 
10210 070260 012711 000340 MOV @PRIO7,(R1) 3USE PRIORITY SEVEN 
10211 070264 SETPRI @PRIOO ;LOWER INTERRUPT BR LEVEL 
070264 012700 000000 Mov @PRIOO,RO 
070270 104441 TRAP  CSSPRI 
10212 070272 000240 560%: NOP ;LOOP AWHILE 
10213 070274 000776 BR 560% ;STAY IN “TIGHT” LOOP 
3° 
10215 sPROCESS CONSOLE INTERRUPTS 
1051? a 
10218 070276 010046 590%: MOV RO, -(SP) sSAVE WORK REGISTER 
10219 070300 113700 177562 MOVE SeTTIBFR,RO 3GET THE OPERATOR 
0427 BIC #200, RO ;STRIP OFF PARITY BIT 
10221 070310 122700 000015 CMPB 2 s«@#15,,RO 31S IT A CARRIAGE RE 
4 001075 ;JUST EXI NO 
10223 070316 012766 066252 000002 MOV @2¢.2(SP) ;RETURN TO MASTER MENU 
000004 CLR 4(SP) sFORCE PRIORTY 0 
10225 070330 013737 0/1000 000060 MOV TVSAV2.@OTTIVEC ;RESTORE VECTOR 
10226 070336 013737 0710902 000062 MOV TPSAV2, BOTTIVEC +2 sRESTORE SUPER PRIORTY 
10227 070344 112737 000025 071020 MOVB  @25,7388S0 STOP ORIVE TEST 22 
10228 070352 112737 000000 071021 MOVB #0,1388S1 :CLEAR BS1 
10229 070360 012704 071019 MOV STSOPACRET R4 3SET UP NEW WRT. SUBSYS MEN. COMMAND 
10230 070364 010465 00000) MOV R4, TSDBCRS) 3SET THE PACKET ADORESS 
10231 070370 012737 176750 071004 MOV #65000. . TS8DLY 3SET UP DELAY 
10232 070376 004737 016250 592%: JSR PC, WAITF 300 A WAIT FOR SSR 
10233 070402 016501 000002 MOV TSSRCRS),.RL ;CONTENTS OF TSSR REGISTER 


10234 070406 052701 000200 BIT @SSR,R1 sCHECK FOR TSSR SET 
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°o 
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001017 
012727 
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070776 
000100 


073342 
015774 


071026 
125252 
071502 


002202 
0/1510 
010662 


177560 


071530 


591%: 
358: 


601%: 


6108: 


BNE 
DELAY 


S2eSS5598 83 2 


2 
8 


TTION2 

591% 

#100, 80TTICSR 
CSP)+,RO 


*. 


PC, T3BREST 
PC. SOF INIT 

os, 

ERRNO, SFIERR, SFIMSG 


SEQ 0233 

KEEP GOING IF NOT SET 

sCALL DELAY ROUTINE 
Mov €250,(PC)+ 
. WORD 
MOV LSOLY. CPC) 
.WORD 0 
oEC -6(PC) 
BNE .-4 
DEC -22(PC) 
GWE --20 

:BUMP COUNTER DOWN 

:8R, IF MORE TIME LEFT 

;WALT FOR SSR TO SET 

18R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 
TRAP C8 
.WORD 1019 
“WORD «=f 
“WORD PKTSSR 

sLOOP ON ERROR, IF FLAG SET 
TRAP  C8CLP1 

sARE SUPER INTERRUPTS ENABLED 

36R, IF 

sRESTORE REGISTER 

sRESTORE REGISTER 

sRETURN 

sSET PACKET TO INITIAL VALUES 

300 SOFT INIT OF 

:8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
.WORD 1020 
[WORD  SFIERR 
[WORD SFIMSG 

;LOOP IF SELECTED 
TRAP —s-« CSCLP1 

sADORESS OF MESSAGE 

sALTERNATING 1'S AND O'S 

sCLEAR OUT THE MESSAGE BUFFER 

, GUFFER YET 

3:08, IF AT END OF BUFFER 

sNOT AT END KEEP GOING 

sSET UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADORESS 

1 13SUE URITE CHARACTERISTICS 

+ SAVE CONTENTS OF TSsa ‘ 

a 

Ss 1 © ocenen 

[WORD © SFINSG 


sLOOP IF SELECTED 
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SEQ 0234 
| ‘TEST 10: MANUAL INTERVENTION 
| 070616 104406 TRAP CSCLP1 | 
10279 070620 112737 000000 071021 MOVB eos these sCLEAR BIT 04 
10280 070626 112737 000024 071020 MOVB 024 BSO sREAD EXTENDED DRIVE STATUS 
10281 070634 012704 071010 MOV sTSAPACKeT, R4 ;SET UP NEW WRT. SUBSYS MEM. COMMAND 
10282 070640 010465 000000 MOV R4, TSDBCRS) iSET THE PACKET ADDRESS 
| 10283 070644 012737 000144 071004 MOV #100. , T38DLY ;SET UP DELAY ROUTINE 
10284 070652 004737 016250 6208: JSR PC, WALTF ;WAIT AWHILE FOR SSR TO SET 
10285 070656 016501 000002 MOV TSSRCRS),R1 ;SEE IF IT REALLY OID 
10286 070662 032701 000200 BIT @SSR,.R1L ;JUST CHECK THAT BIT 
10287 070666 001017 BNE 630% ;8R, IF SSR IS SET 
10288 070670 DELAY 250 sDELAY ABOUT .25 SEC 
070670 012727 000250 MOV #250,(PC)> 
070674 000000 . WORD 
070676 013727 002116 MOV LSOLY,CPC)+ 
070702 000000 . WORD 
070704 005367 177772 DEC ee te 
070710 001375 BNE 
070712 005367 177756 DEC “23¢ec) 
070716 C01367 BNE -20 
10289 070720 005337 071004 DEC T38DLY ;START DELAY COUNT DOWN 
10290 070724 001352 BNE 620$ :8R, IF COUNTER IS NOT AT DONE 
10291 070726 004737 016336 630%: JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
10292 070732 103405 BCS 650$ 3B8R IF CARRY SET (gee RETURN) 
10293 070734 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
10297 070736 ERROF ERRNO, T38SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
070736 104455 TRAP CSEROF 
070740 001776 -WORD 1022 
070742 072206 -WORD T38SSR 
070744 012046 .WORD PKTSSR 
10298 070746 6508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
070746 104406 TRAP CSCLP1 
10299 070750 012700 071046 MOV @T38BFR+20,RO sMESSAGE BUFFER ADDRESS 
10300 070754 005001 CLR R1 3NO HIGH ORDER ADDRESS BITS 
10301 070756 005037 003134 CLR KTENABLE sNO KT11 STUFF EITHER 
10302 070762 004737 073400 JSR PC, T38MBP :GO PRINT MESSAGE BUFFER CONTENTS 
ptt 070766 000137 066252 JMP 2s :GO BACK TO MENU 
10305 
10306 363%: JMP 200 ;TYPE tC TO RETURN TO THE SUPERVISOR 
10307 070772 64$: EXIT TST ;LEAVE TEST 
070772 104432 TRAP CSExIT 
070774 003056 -WORD 1L10075S-. 
10308 
10309 3¢ 
10310 ;LOCAL TEXT MESSAGES FOR TEST 
10311 s- 
10312 
10313 ;LOCAL STORAGE FOR THIS TEST 
10314 s- 
10315 3¢ 
10316 ;LOCAL STORAGE FOR THIS TEST 
losis - 
10319 070776 000000 TTION2: -WORDB O sWORD SET IF SUPERVISOR TTI INTER OFF 
10320 071000 000000 TVSAV2: .WORD 0 sSAVE TTI VECTOR 
10321 071002 000000 TPSAV2: .WORD 0O sSAVE TTI PRIORITY 
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T38OLY: .WORD 0O 

-*<,¢10>€177770 
T38PACKET: 

. WORD 140006 

"WORD T38TAD 

-WORDB O 

. WORD 10. 
T38TAD: 
T38BSO: .BYTE 0 
T36B8S1: .BYTE 0 
T38BS2: .WORD 0 

-WORD O 
T38BFR: .BLKW 150. 
T38EB: WORD 

-#¢,+10>€177770 
T38PKe: 

. WORD 140004 

.WORD T38DTA 

-WORDB O 

. WORD 10. 
T38DTA: 

.WORD T38BFR 

-WORD O 

-WORD 256. 
T38EAI: .WORD 0 
T38D0SW: .WORD 


0 
- =<, ¢10>€177770 
T36PK3: .WORD 140212 
WORD O 


[WORD 0 
"WORD O 
"wORD 0 


;WRITE TAPE PACKET 


3 
-®¢,¢10>E€177770 
T38PK4: .WORD 140005 
T36WR: .WORD O 

-WORD O 
T38SIZ: .WORD 256. 


Sa 
;LOCAL TEXT MESSAGES FOR TEST 


;DELAY COUNTER FOR TEST 
sCOMMAND PACKET FOR TEST 
sWRITE SUBSYSTEM MEM. CMD, ACK,CVC#1 
;ADDRESS OF CHARACTERISTICS BLOCK 


TING VALUE oon BLOCK SIZE 


sSTAR 
; CHARACTERISTICS orn BL 
sBSELO BYT 


;BSEL1 BYTE 

s6SEL1 WORD 

sDATA 

;MESSAGE BUFFER 

sEND OF BUFFER ADDRESS 


sCOMMAND PACKET FOR TEST 
sWRITE CHARA. MEM. CMND., ACK,CVC#=1 
sADDRESS OF SELECT DATA BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sSELECT DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
sEAI BIT WORD 

sORIVE SELECT WORD ETC 


1 art A lide RELEASE COMMAND 


sNOT USED 


sWRITE, ACK, CVC=1 COMMAND 
sADDRESS OF WRITE BUFFER 
sMORE ADORESS OF WRITE BUFFER 
;SIZE OF RECORD 


141 T38NE: .ASCIZ ‘Stand-alone Manual Intervention Not Executed’ 


SEQ 0235 


“TSVS - HARDWARE TESTS 
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0406 072756 
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| TEST 10: MANUAL INTERVENTION 


073030 
073270 


071010 
140206 
071020 
000006 


073056 


105 


T38WRT: Cones 


4 
;LOCAL STORAGE 
5° 


T38DAT: 
T38REST: 


- WORD 


3¢ 


‘SNSA Type <RETURN> To a e Exerciser, Return To Menu’ 
‘TSSR Noe. Correct After WRITE, With WRITE PROTECT On’ 

"WRITE LOCKED Bit Not Set In XSTO! 

"WRITE LOCK ERROR Bit Not Set In ~y 4 

‘WRITE SUBSYSTEM MEMORY Command Not A srpted. 

‘Contents of TSSR Incorrect After WRITE UBSYSTEM MEMORY’ 
‘SNSA Interrupt Received’ 

‘SNSA Drive Is Now ON-LINE’ 

‘SNSA Drive Is Now OFF-LINE‘ 

‘Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE’ 
'SNSAT e@ ON-LINE Switch to Generate ATTENTION Interrupts’ 
‘ SNBAT ype RETURN To Return To MenusN’ 

‘Is Write-Protected Tape Mounted’ 


‘Manual Intervention’ 

1%,2%,3%,4%,5%.6$% 

8¢,9%,10%,0 

<12>' SELECT OPERATION FROM FOLLOWING OPTIONS: ’ 
<12> r?) Piapley This Menu 

2 1 Turn On All *7196 LED‘ ’s’ 

. 2 Turn Off All M7196 LED’ 's’ 

P 3 Offline/Online Attention’ 

, 4 Write Protect Test’ 

¢ 5 Print Extended Transport Status’ 
y tc To Return to Diagnostic Supervisor’ 


FOR THIS TEST 


0 ;LOGICAL RESPONSE TO QUESTION 

;SAVE THE REGISTERS 
@T38PACKET,R1 ;START OF THE PACKET 
#140206, (Ri)+ ;WRITE SUBSYSTEM MEM. WITH ACK,CVC=1 
@T38TAD,(R1)+ ;ADDRESS OF DATA BLOCK 

1)e ;EXTENDED ADDRESS 

06. ,(R1)+ 3SIZE OF DATA BLOCK IN BYTES 
(Ris ‘CLEAR BSELO AND BSEL1 
CR1)+ sCLEAR SEL2 
(R1) ;CLEAR DATA AREA 
PC ;RETURN 


; THIS ROUTINE PRINTS THE CONTENTS OF 
sTHE 256 BYTE MESSAGE BUFFER RETURNED BY THE 


sTSV-OS 


é 

s INPUT: 

e 

: RO 


LOW ORDER ADDRESS OF MESSAGE BUFFER 
HIGH ORDER ADDRESS OF MESSAGE BUFFER 


SEQ 0236 





| TSVS - HAROWARE 


| TEST 10: 


10460 073450 


TESTS 
INTERVENTION 


003134 


073702 
000003 


062706 000010 
073747 
000001 


062706 000004 


001403 
737 017316 
10005 
010537 074050 
011504 
022704 125252 
001417 
010403 
042704 170377 
000241 
006004 
006004 
006004 
006004 
por He 177760 
010325 
020527 0/1502 
001355 
013705 074050 
012704 000001 
012546 
010446 
012746 074024 
012746 000003 


9108: 


913%: 
9118: 


9128: 
9153: 
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NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


SAVREG 

MOV RO,RS 

TST KTENABLE 

BNE 9108 

CLR Ri 

MOV R1,R3 

ROL RO 

ROL Ri 

PRINTX @T38ASO,R1,.R5 
PRINTX @T38AS1 


MOV RS5,R1 
MOV R3,RO 


913% 

JSR PC, SETMAP 
RO,RS 

MOV RS, TS8CNT 


MOV (RS), R4 
CMP $125252,R4 
BEQ 912% 

MOV R4,R3 

BIC #170377,R4 
CLC 

ROR R4 

ROR R4 

ROR R4 

ROR R4 

BIC $177760,R3 
ADD R4,R3 

MOV R3.(RS)+ 


CMP ~ tt fam 
MOV T38CNT,RS 


MOV #1, 
PRINTX @T38ASN,R4,(RS)+ 


sSAVE THE REGISTERS 

sSAVE LOW ORDER ADDRESS 
sADDRESS ABOVE 28K? 

s8R IF YES 

sSET HIGH ORDER ADDRESS TO 0 
sSAVE_HIGH ORDER ADDRESS 

iSHIFT BITiS TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
SPRINT MESSAGE BUFFER ADDRESS 


s;PRINT HEADER FOR CONTENTS 


sCOPY LOW ORDER ADDRESS 
:COPY HIGH ORDER ADDRESS 


NTRY 
sCHECK FOR NO LOAD CONDITION 
38R, IF BUFFER WASN'T LOADED 
;MAKE COPY 
sONLY BITS 11,.10.9 AND 8 ARE SAVED 
sCLEAR CARRY 
:11 TO 10 BIT POSITION 


8 

38 TO 7 BIT POSITION 

;ONLY BITS 3,2,1 AND O ARE SAVED 
;"OR'EM TOGETHER 

}PUT BACK IN BUFFER 

END ER 


; OF BUFFER YET 

;8R, IF NOT AT END YET 

3PUT ADDRESS 

;START BYTE NUMBER 

;PRT MEM BUFFER W/NEWL INE 

MOV 
MOV 
MOV 
MOV 


SEQ 0237 


RS.-CSP) 
Ri, -(SP) 
@TS8ASO, -(SP) 
@3,-(SP) 


SP. RO 

CSPNTX 
#10,SP 
@T38AS1, -(SP) 
#1, -(SP) 


CsPNTX 


CR5D° . (SP) 
@T38ASN, -(SP) 
@3,-(SP) 
SP;RO 
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TESTS 
INTERVENTION 
3088 S 
27 000010 
005037 074050 
000412 
012546 
10446 
012746 074005 
ty des 000003 
104415 
0627 000010 
005237 074050 
020427 000200 
003010 
023727 074050 
00140 
c0o7S53 
005037 074050 
000733 
000207 
045 116 
045 116 
045 101 
045 116 
000000 
104401 


TRAP CS$PNTX 
ADD #10,SP 
CLR T38CNT 


BR 921% 
920%: PRINTX @T36ASC,R4,(RS)+ 


sCLEAR COUNTER 
sSKIP_OTHER PRINT 
sPRINT THE CONTENTS OF — BUFFER 


MOV eT 38ASC, - 


TRAP CSPNTX 
ADD #10,SP 
921%: INC T38CNT s;BUMP COUNTER 
INC R4 sNUMBER OF THE NEXT 
CMP R4,0128. sDONE ALL YET ? 
BGT 50$ sBRANCH ir ALL DONE 
CMP T38CNT , 04 sDONE_FOUR YET 
BEQ 925% 36R, IF THREE DONE 
BR 920% sKEEP GOING 
925%: CLR T38CNT sCLEAR COUNTER 
BR 915% sPRINT WITH NEW LINE 
508%; RTS PC sRETUR 


T38ASO: .ASCIZ ‘SNA Message Buffer Address = #01805’ 
T38AS1: .ASCIZ ‘SNSA Message Buffer Contents: ’' 
T38ASC: .ASCIZ ‘A SD48A: #03' 
T38ASN: oy 'SNSA BytesD4sA: #03’ 
T38CNT: .WORD sCOUNTER FOR PRINT 

ENOTST 

L10075: 
TRAP CSETST 
-SBTTL TEST 11: CONFIGURATION TYPEOUT 


sTHIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
sTHE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
sTHE FOLLOWING INFORMATION IS PRESENTED: 


1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON CEXTENDED 
FEATURES ENABLED) OR OFF CEXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


3.0 MICROCODE REVSION LEVEL OF THE M7196, 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

5.0 UNIT SELECT CODE = STATE CONLINE/OFFLINE, mare ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN M's ht et T ROGRAM WILL are a 


HE P 
FOR EACH ON-LINE TRANSPORT, NOT IT IS EQUIPPED WITH T 
EXTENDED TAPE STATUS READOUT FEATURE. 


sTHE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 
sTHE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 


CRS De . (SP) 
R4 ) 
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10579 
1 


074 
074212 


0580 074216 
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076333 
077534 
016510 
017762 
075336 


015774 


002202 
076260 
010662 


075610 
077252 
000001 


000004 
000200 


076300 


SEQ 0239 
| 
1 
:THAT IT “SEES” TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
sTHE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE | 
sCAUSE (BAD CABLE UNIT-SELECT DECODING IN THE TRANSPORT, ETC. ). 
s(SINCE THE CORTROLLER” CAN ONLY ACCESS UNIT 0 IF IT IS IN “STANDARD” 
PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 
}WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS. } 
; 
THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WELL EXIT BACK TO THE 
:DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
}SELECTED CE.G.. FROM THE INITIAL STARTUP DI aLoa)> THE ROUTINE WILL BE 
;REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 
3 
BGNTST a 
632%: RFLAGS RO :GET OPERATOR FLAGS 
TRAP  C$RFLA 
BEQ 10% :8R, IF OK TO RUN 
MOV @T3ONE RO ;"TEST NOT EXECUTED” 
BR 118 ;JUMP OUT OF TEST IF NOT 
10$: MOV eTST39ID. RO ;TEST ID MESSAGE 
11$: JSR pC. T TSETUP ;00 THE COMMON SETUP 
JSR PES CHKM AN 31S MANUAL INTERVENTION ALLOWED? 
BCS 20% ;8R, IF MANUAL INTERVENTION ALLOWED 
aad JMP 64% ;JUMP TO OUT IF NOT 
JSR PC,SOFINIT :D0 SOFT INIT OF CONTROLLER 
BCS 25% ;BR IF SOFT INIT = OK 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
.WORD 1101 
"WORD SFIERR 
"WORD SFIMSG 
25%: CKLOOP P ;LOOP IF SELECTED 
TRAP = CSCLP1 
MOV UNITN, T390SW :SET UNIT NUMBER 
MOV OT39PK2,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
JSR PC,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
BCS 50% ;8R, IF COMMAND ISSUED OK 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
TRAP §CSERHRD 
.WORD 1102 
"WORD WRTMSG 
“WORD SFIMSG 
50$: CKLOOP ;LOOP IF SELECTED 
TRAP _—‘ CSCLP1 
MOV T39BFR+12,R1 ;GET XST2 STATUS FROM MESSAGE BUFFER 
PRINTX #@T39SFS ;"STATE OF EXTENDED FEATURES SW =“ 
MOV @T39SFS, -(SP) 
MOV #1, -(SP) 
MOV : 
TRAP  CS$PNTX 
ADD SP 
BIT @BIT7.R1 ;CHECK STATE OF E.F.S. 
BNE 100% ;6R, IF EXT. FEA. SW. IS ON 
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10581 


10584 


10585 
10586 


10590 
10591 
10592 





074220 
t°) 


012746 
0600 


062706 
042701 
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077376 
000001 


000004 
077405 
000001 


000004 
077324 
000001 


000004 
000100 


077376 
000001 
000004 
077405 
000001 


000004 
177700 
077472 


077472 
077414 
000002 


000006 
015774 


076300 


1008: 


110$: 


1208: 


130%: 


140%: 


PRINTX 


BR 
PRINTX 


PRINTX 


BIT 
BNE 
PRINTX 


BR 
PRINTX 


BIC 
MOV 
PRINTX 


@TS90FF 


110$ 
@T390N 


@T39SBS 


@BIT6,R1 
120% 
@TS90FF 


130% 
@T390N 


#177700,R1 
R1, T39RL 
@TSOMCL , TS9RL 


PC, SOFINIT 
140% 


RO,R1 
ERRNO, SFIERR, SFIMSG 


UNITN, T390SW 
@TS9PK2 ,R4 


PC. WRTC 
150% 


3° OFF” 


AOD 
+y OTHER PRINT STATEMENT 
e? “ 


MOV 
MOV 


MOV 

TRAP 

ADO 
s“STATE OF BUFFERING SWITCH =” 


sCHECK STATE OF BUFFERING SW 
Lowe BUFFERING IS ON 
5° 


TRAP 


ADD 
Te OTHER PRINT STATEMENT 
g” 


ADO 
sONLY LEAVE 4 ee REV LEVEL 


sLOAD UP REV 


; “MICROCODE REVISION —_< "= =000XXX* 


MOV 
MOV 
MOV 
TRAP 
ADO 
s00 SOFT INIT OF + eames 


3BR IF SOFT INIT 
sSAVE CONTENTS OF 


TSSR 
sDEVICE FATAL ERROR es = el 


- WORD 

- WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


sSET UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADORESS 
sISSUE WRITE CHARACTERISTICS 
:;8R, IF COMMAND ISSUED OK 


SEQ 0240 


OT390FF , -(SP) 
#1,-(SP) 


SP; RO 
CSPNTX 
@4,SP 


eTS9ON. -(SP) 
CSPNTX 

SP 
@T39SB8S, -(SP) 
#1,-(SP) 


CSPNTX 
@4,SP 


@T390FF, -(SP) 
#1,-(SP) 


CSPNTX 


@TS90N, -CSP) 
#1,-CSP) 


SP.RO 
CSPNTX 
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10608 074450 
10609 074452 
074452 
074454 
074456 
074460 
10610 074462 
074462 
10611 074464 
10612 074470 
106135 074472 


10652 074626 
10653 074632 


010001 


016501 
032701 
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002226 
000200 
000010 
075560 
000000 
016336 


076260 


010662 


000002 
000100 


075571 
075570 


076300 


MOV 
ERRHRD 


150%: 


160%: CKLOOP 


MOV 
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RO,R1 
ERRNO, WRTMSG, SFIMSG 


EXTFEA 
174% 

#200, 7398S1 
#10, 1398S0 
@TS9PACKET ,R4 
R4, TSDBCRS) 
PCC ‘CHKTSSR 


RO,R1 
ERRNO, TS9NBA, PKTSSR 


@T39PK2 ,R4 


SEQ 0241 


sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC hes 


CSERHROD 
-WORD 1104 
-WORD WRTMSG 


sB8R IF SWITCH IS 
a A MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT CTURN ON EXTFEA HW SWITCH) 
sWRITE SUBSYS MEM PACKET 
SUE _ COMMAND 


;ERROR, SAVE TSSR 
;TSSR NOT CORRECT AFTER WRT MISCELLANEOUS 


[WORD PKTSSR 
;LOOP IF SELECTED 


TRAP CsCLP1 
sSUBROUTINE NEEDS PACKET ADDRESS 


,RRAEEREKEEEARERRKAKRARARKEAMAHSGARKAKARARAEHAEAKHKESAAHKAKAHKEKETARHH 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
GESEASELSERESERHAHEREHEAAEEAEHRARALARHEAAARSEAEEEEREEARESERSEALAREHARHEDHR 


170$: 


174%: 
175$: 


180%: 


MOV 
BIT 


190%: 


PC ,WRTCHR 
170% 


RO,R1 
ERRNO, WRTMSG , SFIMSG 


UNITN 

UNITN, pongeu 
oT39PK2,R 

+t cAuRTCHR 


RO. Ri 
ERRNO, WRTMSG, SFIMSG 


TSSRCRS),R1 
@OFL .R1 


a WRITE CHARACTERISTICS 
SSVED OK 


IF COMMAND 
i SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
- WORD 1106 
> WORD WRTMSG 
. WORD SFIMSG 
:SCOPE LOOP 
TRAP CSCLP1 
:SET TO ORIVE O 
3SET UNIT RQ 


NUMBE 
sSUBROUTINE NEEDS PACKET ADDRESS 
STSSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC hv 


- WORD 
-WORD WR 
WORD SFIMSG 


TRAP 


sLOOP IF SELECTED 


sGET TSSR STATUS 


«WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CSCLPi 
CHECK FOR oN oe FEATURES SW SWITCH 
sCHECK FOR OFF-LINE 
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10654 
10655 


10656 
10657 


10658 


074636 
4640 


10659 074720 
10660 


10661 


10662 
10663 


001414 


000000 
013727 
000000 
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002202 
076574 
000002 


000006 
075220 
002202 


000250 
0v2116 
177772 
177756 
075552 
016336 


075676 
075571 
075570 


075552 
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2008: 


2108: 


2208: 


2228: 


225%: 


BEQ 
PRINTX 


JMP 
PRINTX 


MOV 
BIT 


BNE 
PRINTX 


BR 
PRINTX 


200% 
@T390F 2,UNITN 
250% 
@T390N2,UNITN 


T39BFR+6,R1 
Saleen 


2 
@T39WPN, UNITN 


220% 
@TSOWRT ,UNITN 


#125252, T39BFR+100 
@0; 739681 
9850 
TSdeAcKer R4 
TSDBC(RS5) 
9100; , TS9DLY 
PC ,WAITF 
TSSRC(RS),R1 
@SSR.R1 


225% 
250 


T39OLY 
222% 

PC, CHKTSSR 
230% 


SEQ 0242 
;8R, IF ORIVE IS ON-LINE 
; "DRIVE NUMBER ¥X IS OFF-LINE” 
MOV ITN, -(SP) 
MOV @T390F2, -(SP) 
Vv »-(SP) 
MOV *RO 
TRAP C8PNTX 
ADD 66 ,SP 
;00 NOT TRY TO GET ANYMORE INFO. 
;"DRIVE NUMBER XX IS ON-LINE” 
MOV UNITN, -(SP 
MOV @T39ON2, -(SP 
MOV #2. -(SP) 
TRAP CSPNTX 
ADD 66,SP 
sREAD EXTENDED STATUS (XSTO) 
;I1S DRIVE WTITE PROTECTED 
;OR, IF WRITE PROTECTED 
;"ORIVE NUMBER IS NOT WRT PRO” 
UNITN, -( 
MOV @T39WPN, -(SP 
MOV 2, agsP3 
TRAP CSPNTX 
ADD SP 


sSKIP OVER 
:“ORIVE NUMBER XX IS wines yl 


-(SP) 
MOV ersoutt -(SP) 
MOV @2,-(SP) 


MOV ‘RO 

TRAP CSPNTX 

ADD ° 
sSET 1 LOC TO KNOWN VALUE 


sEXTENDED TAPE STATUS 
sWRITE SUBSYS MEM PACKET 
sISSUE COMMAND 


sSET UP DELAY ROUTINE 
iWALT AWHIL« *OR ey = ig SET 


Is 
sDELAY ABOUT .25 SEC 
MOV #250 ,(PC)+ 


. WORD 
MOV LSOLY,CPC)+ 


. WORD 

DEC -6(PC) 
BNE 74 
DEC -22¢PC) 
BNE --20 


:START DELAY COUNT DOWN 
1BR, IF COUNTER IS NOT AT DONE 
OR. IF NO ERROR 





10679 075122 
10683 24 


10688 e 
10689 075174 


° 
10704 075316 


10705 reese 


10706 
10707 
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010001 


104456 
002124 
077035 
012046 
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075676 


002202 
076501 
000002 


202 
076412 
000002 


000006 
002202 
002202 
074572 
075342 
000001 
017540 


075264 


125252 


2303: 


240%: 


250%: 


6318: 


6%: 
63%: 


64%: 


MOV 
ERRHRD 
CKLOOP 


BNE 
PRINTX 


BR 
PRINTX 


SETPRI 


printf 


PRINTX 


EXIT 


RO,R1 
ERRNO, TS9NBA, PKTSSR 


T39BFR+100, #125252 
240% 
@T39ETN,UNITN 


250% 
@T39ETS,UNITN 


@PRIOO 


@T38MS2 
@TSONFL 


TST 


> 
;LOCAL TEXT MESSAGES FOR TEST 


SEQ 0243 


sERROR, SAVE TSSR 
;TSSR NOT CORRECT AFTER wy MISCELLANEOUS 
TRAP CSERHRD 


-WORD 1108 
-WORD TSONBA 
-WORD PKTSSR 


sLOOP IF SELECTED 


TRAP 
sDID LOC GET OVER WRITTEN 
sBR, IF IT DION’T GET ETC. 

:"DRIVE DOESN'T HAVE EXT TAPE STATUS 


TN, -€ 
MOV @T39ETN, -(SP) 
my ag. C5) 
TRAP CSPNTX 
ADO 66 .SP 
;SKIP OVER 
;"DRIVE HAS EXT TAPE sTATUS* 
MOV @T39ETS, -(SP) 
mov 6g. (50) 
TRAP CSPNTX 
ADO 66.SP 
;BUMP DRIVE NUMBER 
;AT END OF DRIVES YET 
:BR, IF NO MORE DRIVES 
300 NEXT ORIVE 
;MENU OF MANUAL INTERVENTIONS 
;MAXIMUM ALLOWED SELECTION 
:GO GET THE OPERATORS SELECTION 
:GET NUMBER FROM ROUTINE 
;CONVERT TO WORD OFFSET 
; JUMP TO PROPER LOOP 
;RETYPE THE MENU 
;RERUN THE TEST 
MOV @PRIOO,RO 
TRAP C8SPRI 
MOV @T38NS2, -(SP) 
MOV #1,-(SP) 
MOV RO 
TRAP CSPNTF 
ADO o4,SP 
sNEW LINE 
MOV @T3ONFL, -(SP) 
MOV #1,-(SP) 
MOV : 
TRAP CSPNTX 
64,SP 
sEXIT THIS SECTION 
TRAP  CSEXIT 


-WORD 110076-. 
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SEQ 0244 


10708 t- 

10709 ' 

10730 sLOCAL STORAGE FOR THIS TEST ) 
t- 


10711 
10712 075342 075356 075430 075456 NUMENU: .WORD 1%,2¢,3%,48.5 
012 123 105 


18: :ASCIZ <1’ SELECT SeERATION FROM FOLLOWING OPTIONS: ' 
10714 075430 012 011 060 2%: “ASCIZ <12>' Display This Menu’ 
10715 075456 011 061 O11 38: :ASCIZ ' t Rerun this test’ 
10716 075501 011 136 103 4%: -ASCIZ ' tc To Return to Diagnostic Supervisor’ 
10717 075550 000 S$: ‘ASCIzZ °° 
10718 EVEN 
10720 075552 000000 T39DLY: .WORD 0 ;DELAY COUNTER FOR TEST 
07 075560 ><, 610>€177770 
10724 075560 T39PACKET: sCOMMAND PACKET FOR TEST 
10725 075560 140006 .WORD 140006 }WRITE SUBSYSTEM MEM. CMD, ACK, CVC#21 
10726 075562 075570 “WORD T39TAD sADDRESS OF CHARACTERISTICS BLOCK 
10727 075564 000000 ‘WORD 0 
10728 075566 00012 [WORD 10. ;STARTING VALUE OF BLOCK SIZE 
10729 075570 T39TAD: ;CHARACTERISTICS DATA BLOCK 
10730 075570 000 1™398S0: .BYTE 0 :BSELO BYTE 
10731 075571 000 T398Si: .BYTE 0 ;BSEL1 BYTE 
10732 075572 000000 T398S2: .WORD 0 ;8SEL1 WORD 
10733 075574 000000 0 sDATA 
10734 075576 T39BFR: .BLKW 150. ;MESSAGE BUFFER 
10736 - 
10738 076260 .*¢, 1026177770 
10740 076260 T39PK2: sCOMMAND PACKET FOR TEST 
10741 076260 140004 .WORD 140004 ;WRITE CHARA. MEM. CMND., ACK,CVC*1 
10742 076262 076270 “WORD T39DTA sADDRESS OF SELECT DATA BLOCK 
10743 076264 000000 [WORD 0 
10744 076266 000012 [WORD 10. sSTARTING VALUE OF BLOCK SIZE 
10746 
10747 076270 T390TA: ;SELECT DATA BLOCK 
10748 076270 075576 .WORD T39BFR sADDRESS OF MESSAGE BUFFER 
10749 076272 000000 [WORD 0 
10750 076274 000400 [WORD 256. ;LENGTH OF MESSAGE BUFFER 
10751 076276 000000 T39EAI: :WORD 0 ;EAI BIT WORD 
10752 076300 000000 T390SW: |WORD 0 sORIVE SELECT WORD ETC 
10754 076310 *@¢. 61026177770 
10756 076310 140012 T39PK3: .WORD 140012 ;MESSAGE BUFFER RELEASE COMMAND 
10757 076312 000000 ‘wORD 0 sNOT USED 
3 
10759 WRITE TAPE PACKET 
10760 
10762 076320 .®<, 6106177770 
10764 076320 140005 T39PK4: :WORD 140005 sWRITE, ACK, CVC=1 COMMAND 
10765 076322 000000 T39WR: WORD 0 sADORESS OF WRITE BUFFER 
10766 076324 000000 [WORD 0 MORE ADORESS OF WRITE BUFFER 


sores 076326 000400 T39SIZ: .WORD 256. ;SIZE OF RECORD 
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10773 
10774 
107 
10776 
10777 
1077 
107 76330 116 
10780 076333 123 
10761 076412 116 
10762 076501 045 116 
10783 076574 045 116 
9 76640 045 116 
1076S 076703 045 116 
9 767356 045 116 
107867 077035 127 122 
10788 077111 103 157 
10789 077201 045 116 
107 77 045 116 
10791 077 045 116 
10792 077376 045 101 
10793 077405 045 101 
10794 077414 045 116 
10795 
10796 077472 000000 
10797 
10798 
10799 
10800 
10601 
108602 
108603 
10604 077474 000000 
10805 077476 
10806 077476 
70 012701 075560 
1°) 012721 140006 
9 012721 075570 
10610 077516 005021 
10 012721 000006 
° 005021 
10613 077526 005021 
108614 077530 005011 
10615 0775. 000207 
10616 
10617 
10618 
10619 
10820 
10621 077534 103 157 
10623 077562 
077562 
077562 104401 
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156 





SEQ 0245 


sLOCAL TEXT MESSAGES FOR TEST 
t- 


T3ONFL: .ASCIZ ‘SN’ 
T z 


3SONE: .ASCI ‘ Stend-elone Cons tqucetton Typeout Not Executed’ 
TS9ETS: .ASCIZ ‘sSNSA Extended Tepe Stetus Aveilieble, Orive Number #D2' 
T3S9ETN: .ASC NSA Extended Tepe Status NOT Aveilieble., Orive Number #02’ 


SNSA Drive Number S028A Ie Off-Line’ 


ve Number SD28A Ie NOT Write Protected’ 
‘WRITE SusSYSTen MEMORY Commend Not Accepted’ 
 eapegse of TSSR Incorrect After WRITE SYSTEM MEMORY’ 


T39SSR: . 
T390UT henson Type tC to Return to the rvisor’ 
T39SFS: SNSA State Of Extended Features itch =‘ 
T39SBS: .ASCIZ ‘sNSA Stete Of Buffering Switch = 
T390FF: .ASCIZ "SA OFF’ 
T390N: ASCIZ ‘sA ON '' 
T39OMCL: erent ‘SgNSA M7196 Microcode Revision Level =802' 
T3ORL: .WORD O 

EVEN 

-EVEN 


Sd 
LOCAL STORAGE FOR THIS TEST 
t- 


Et EY -WORD 0 sLOGICAL RESPONSE TO QUESTION 
SAVREG sSAVE_THE REGISTERS 
Vv @TS9OPACKET ,R1 SSTART OF THE PACKET 
MOV #140006, (R1)-+ sWRITE a A MEM. WITH ACK,CVC=1 
MOV @T39TAD,CR1)D+ re OF DATA BLOCK 
CLR CR1i)de sEXT ss 
MOV #6. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
CLR (Ride sCLEAR BSELO AND BSEL1 
CLR CR1)+ sCLEAR SEL2 
CLR CR1) sCLEAR DATA AREA 
RTS PC sRETURN 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
t- 


TST39ID: 
ENOTST 


-ASCIZ ‘Configuration Typeout’ 


L10076: 
TRAP CsETST 


-SBTTL TEST 12: SCOPE LOOPS 








j 
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SEQ 0246 
TEST 12: SCOPE LOOPS 
10626 s¢ 
10629 
ides: 
i 
10832 ' THIS IS UB STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 
t 
10834 : THE M7196 MODULE. THESE SCOPE LOOP USED 
10835 , “LOOP ON ERROR® OR “LOOP ON TEST (SUBTEST)* FACILITIES DON’T 
10836 ' SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
10837 , Tests. (I.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
10638 , ACCESS CAUSING A BUS ERROR TRAP EVEN THOUGH THE DEVICE ADORESS 
10839 ' ECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
10840 ’ DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
10641 ' AVAILABLE: 
sees r 
1 0eea 3 CODE SCOPE LOOP 
e 
10845 : 0 HELP. PRINT THIS MENU. 
10846 , i TSBA READ ACCESS 
10647 , 2 TSSR RE 
10848 ’ % IRETTALIZE®¢ 1558 WRITE ACCESS) 
10849 ' 4 TSDB8 HIGH evte WRITE ACCESS 
10856 : 5  .TSO08 LOW BYTE WRITE ACCE 
10651 ’ é TSO8 MAINT: -MOOE WORD WRITE ACCESS 
10853 , 7 TSOBX (TSSR HIGH BYTE) WRITE ACCESS 
10€ , CEXTENDED FEATURES SuITCH MUST BE ON 
106:54 ; TO USE SELECTION CODE 7) 
10835 , 8 EXIT (RETURN TO SUPERVISOR) 
3 
10€57 : FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
10858 ; THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
108659 , AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 
10860 ' 
3 


Tl2:: 
3sGET GPERATOR FLAGS 


BRANCH IF OK 
ROR Pals Eanes 


| 
' 
| 
FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
Ss WHEN THE NORMAL 
WORD 
sMENU OF SCOPE LOOP SELECTIONS 
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012701 
004737 


012703 
060503 
011300 
000776 


004737 
010001 
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000007 
017540 


000007 
002226 


101077 
000001 


017456 


177560 


177560 


4$: 


68: 


BNE 
PRINTF 


MOV 
SETPRI 


alae 
@EXFMSG 


es 
RO,R4 
@PRIO7 


TTION 
eal ame 


TTION 
#100, @@TTICSR 


@TTIVEC,R1 


(R1), TVECSAV 
#60$,(R1)+ 
(R1), TPRISAV 
@PRIO7,(R1) 


@PRIOO 


TSOBCRS) 
CRS),RO 
12s 


@TSSR,RS 
RS,R3 
CR3),RO 
18% 


=F tated 


SEQ 0247 


—s ALLOWED SELECTION 

:GO GET THE OPERATORS SELECTION 
sWAS ZERO SPECIFIED ? 

sREPEAT MENU IF YES. 

‘EXTENDED TSSR ? } 
sBRANCH IF 


sCHECK FOR EXTENDED FEATURES SET 

s6R, IF IT IS ON 

TaARN OPERATOR EXTENDED ea es Sree 
MOV #1,-(SP) 
MOV P 
TRAP CSPNTF 
ADD »SP 

GO BACK TO BASIC MENU 


sSAVE THE MENU SELECTION 
sRAISE THE PRIORITY 


MSG, -(SP) 


@PRIO7,RO 
TRAP C$SPRI 
sASSUME_INTERRUPTS ARE ENABLED 
sARE TTI_INTERRUPTS ON ? 
s;BRANCH IF YES 
sFLAG SET 1F INTERRUPTS OFF 
a INTERRUPTS 
sSTART OF TTI VECTORS 
i SAVE THE CURRENT TTI VECTOR 

T ROUTINE 


sUSE PRIORITY SEVEN 

sLOWER INTERRUPT BR LEVEL 
MOV @PRIOO,RO 

T C#SPRI 

sCONVERT TO WORD OFFSET 


sTSSR WRITE ACCESS 

;TSOB HIGH BYTE WRITE ACCESS 
;TSOB LOW BYTE WRITE ACCESS 
;TSOB MAINTENANCE MODE 
;TSDBX WRITE ACCESS 

sLEAVE THE TEST 


sENTER_ MAINTENANCE MODE 
sREAD TSBA REGISTER 
sLOOP UNTIL HALTED 


sADDRESS OF TSSR REGISTER 
sPOINT TO TSVOS'S REGISTERS 
sREAD TSSR REGISTER 

sLOOP UNTIL STOPPED 


sREAD THE DATA PATTERN 
sDATA PATTERN FOR LOOP 
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012703 
060503 
010113 
000776 


060503 
0101135 
000776 
004737 
010001 
012703 
060503 
110113 
000776 
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017456 
000003 


000002 


000060 
000062 


177560 


228: 


25%: 


278: 


30%: 


32%: 


35%: 


37%: 


40%: 


42%: 


7 
;PROCESS CONSOLE INTERRUPTS 
§° 


60$: 


618: 


MOV 
v6 


@TSSR,R3S 
R1,CR3) 
22% 
TSDBCRS) 
PC ,GETPAT 
RO,.R 
@TSDBH,R3 
RS.R3S 
R1,CR3) 
27% 


TSOBCRS) 
PC ,GETPAT 
RO,R 
@TS98,R3 
RS.RS 
R1,CR3) 
32% 
PC,GETPAT 
RO,R1 
#TS0B ,R3 
RS.R3 
R1,CR3) 
37% 

PC, — 
RO,R1 
eTSshH, oR3 
R1,C(R3) 
42% 


RO, -(SP) 


@eTTIBFR,RO 
#200,RO 


15. RO 
02%,2(SP) 
4(SP) 


TVECSAV , BOTTIVEC 
TPRISAV , @@TTIVEC +2 
TTION 


61% 
#100, @@TTICSR 
(SP 


%. 


sADORESS OF TSSR 
sPOINT TO TSVOS'S REGISTERS 
sWRITE DATA TO TSSR 


sLOOP 


sENTER MAINTENANCE MODE 
sREAD THE DATA PATTERN 
iDATA oo eee FOR LOOP 


ss HIGH BYTE 
;POINT TO TSVOS'S REGISTERS 


sWRITE THE 


DATA 
:LOOP UNTIL STOPPE 


OF TSOB 


th MAINTENANCE MODE 
READ THE DATA PATTERN 
;DATA PATTERN FOR LOOP 


sADDRESS OF TSSR 

:POINT TO TSVOS‘S REGISTERS 
sWRITE DATA TO TSSR, LOW BYTE 
sLOOP UNTIL HALTED BY OPERATOR 


sREAD THE DATA PATTERN 
sDATA PATTERN FOR LOOP 


sSELECT TS 


sPOINT TO TSVOS‘S REGISTERS 
sWRITE THE DATA PATTERN 


sLOOP UNTIL HALTED 


sREAD THE DATA PATTERN 
sSAVE THE DATA PATTERN 
sBYTE ADORESS OF 
sPOINT TO TSVOS‘S REGISTERS 
sWRITE THE DATA TO REGISTER 


;LOOP UNTIL HALTED 


TSSR, HIGH BYTE 


sSAVE WORK Seetecee 


sGET THE OPERATOR INPUT 
:STRIP OFF PARITY eat 


sRETURN FROM INTERUPT 


SEQ 0248 


5g, ms HIGH BYTE 
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TEST 12: SCOPE LOOPS 


100276 104432 
000736 


11000 100302 000000 


11002 100306 000000 

11003 

11004 

11005 

11006 

11007 

11008 

11009 

11010 100310 100342 100415 100443 
11011 100324 100614 100652 100720 
11012 

11013 

11014 100342 012 —Ss«123 105 
11015 100415 012 O11 060 
11016 100443 O11 061 O11 
11017 100467 O11 062 Oil 
11018 100513 O11 063 O11 
11019 100555 O11 064 O11 
11 100614 O11 065 O11 
11021 100652 O11 066 O11 
11022 100720 O11 067 Oil 
1023 100767 011 136 103 
11024 101036 000 

11025 101037 124 171 160 
11026 101077 116 045 


11051 101240 
101240 


3658: 


TST sEXIT THE TEST 


TRAP 
. WORD 


TO SUPERVIS 


JMP 200 
“cerig saamemanecannl TO 200 IS NOT SUPPORTED ON ON XXDP+ SERSION 2.x. 
;LOCAL STORAGE FOR THIS TEST 


TTION: 
TVECSAV: 
TPRISAV: 


CsExIT 


L10077- . 


-WORD 0 sWORD SET IF SUPERVISOR TTI INTER OFF 
-WORD 0 i SAVE TTI VECTOR 
-WORD O sSAVE TTI PRIORITY 


3¢ 
sMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 


-EVEN 
SCMENU: .WORD 
. WORD 
1%: ASCIZ 
2s: ASCIZ 
3$: -ASCIZ 
4%: -ASCIZ 
5$ -ASCIZ 
6% -ASCIZ 
7$ -ASCIZ 
8$ -ASCIZ 
$ -ASCIZ 
108: ASCIZ 
118: ASCIZ 
128: ASCIZ 
EXFMSG: .ASCIZ 
T4ONE: .ASCIZ 

TST40ID: 
.EVEN 
ENOTST 
TITLE 
BGNMOD 

TSV6:: 

. SBTTL 


2 

3 Initialize (iss. Write Access)' 
4 TSDB High Byte Write Access’ 

: TSOB yt Ban nth. Write Access’ 


TSOB Me e Mode Write Access’ 
7 TSOBX CTSsR High Byte) Write Access’ 
tc To Return to Diagnostic Supervisor’ 


pe RETURN To Stop Sc Loops’ 
‘Type aee Extended antares Switch Not On see ' 
‘Stand-alone soees Loops Not Executed’ 
-ASCIZ ‘Scope Loops’ 


L10077: 
TRAP 
TSV6 - PARAMETER CODING 
TSV6 


HARDWARE PARAMETER CODING SECTION 


see 
s THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 


CsETST 


SEQ 0249 
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| SEQ 0250 
| HARDWARE PARAMETER CODING SECTION 
11058 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
11059 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
11060 3: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
11061 : WITH THE OPERATOR. 
11062 t-- 
11063 101240 BGNHRD 
101240 000010 -WORD L10100-L$HARD/2 
31066 101242 L$HARD:: 
11065 101242 GPRMA HPM1,0,0,160010,177776, YES :GET TSBA/TSOB REGISTER ADDRESS. 
101242 000031 -WORD TSCODE 
101244 101262 -WORD HPM1 
101246 160010 -WORD TSLOLIM 
101250 177776 -WORD TSHILIM 
11066 101252 GPRMA HPM2,2,0,0.,776. YES ;GET VECTOR ADDRESS. 
101252 001031 .WORD TSCODE 
101254 101316 -WORD HPM2 
101256 000000 -WORD TSLOLIM 
101260 
EVEN 
101262 L10100: 
11069 101262 104 105 126 HPM1: -ASCIZ ‘DEVICE ADDRESS (TSBA/TSDB ) P 
11070 101316 111 116 124 HPM2: -ASCIZ ‘INTERRUPT VECTOR 


VE 
11071 101342 111 116 124 HPM3: oe ‘INTERRUPT PRIORITY . 


0 C00776 -WORD  TSHILIM 
11067 sGPRMD HPM3,4,0,340,0,7,YES sGET INTERRUPT PRIORITY. 
11068 101262 ENOHRD 





084 101372 
101372 
101374 


11086 101374 


11089 101402 
101402 


11091 101402 
11092 101432 


101462 
11094 101512 


000003 


001130 
101432 
177777 


TSV6 - PARAMETER CODING MACRO YOS.02 
SOFTWARE PARAMETER CODING SECTION 


Monday 16-Sep-85 10:39 Page 65 


SEQ 0251 


-S@TTL SOFTWARE PARAMETER CODING SECTION 


ae 
: SOFTWARE PARAMETER CODING SECTION CONTAINS macros 
3 THAT ARE USED BY THE SUPERVISOR TO BUIL ABL 
: EXECUTED AS MACHINE INSTRUCTIONS BUT Ane 
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
3 0 LOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
3 WITH THE OPERATOR. 
jee 
BGNSFT 
»WORD L10101-L$SOFT/2 
L$SOFT:: 
H GPRML SPM1,.0,-1.,YES ; GET TRANSPORT TEST FLAG. 
GPRML SPM4,2,-1.YES ; GET ITERATION CONTROL. 
-WORD TSCODE 
. WORD 
WOR 
3 GPRMD SPM7,6,.0,7777,0,7777, YES ; GET GLOBAL ERROR LIMIT 
ENOSFT 
-EVEN 
L10101: 


SPM1: -ASCIZ ‘ENABLE TRANSPORT TESTS ‘ 

SPM4: -ASCIZ ‘INHIBIT ITERATIONS . 

SPM6: -ASCIZ ‘PER TEST ERROR LIMIT '‘ 

SPM7: -ASCIZ ‘PER UNIT ERROR LIMIT ' 
-SBTTL PATCH AREA 


FINALLY A GENEROUS PATCH AREA. 


AND AN ADJUSTMENT TO ACCOUNT FOR A cet BIT7” HACK 


; 
: 
3 
DESCRIBED IN “SUPPRG.MEM” (FOR RE 


PATCH: : 
-BLKW 32. 


-©.2377+1 

LASTAD ;SET LAST USED ADDRESS. 
.EVEN 

WORD 


! 
. 10] -1 
H GPRMD SPM6,4,0,7777,0,7777,YES ; GET LOCAL ERROR LIMIT 
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' Symbol teble 
ADDSSR 012126 G 
ADR = 
AMBTSS 006635 
ASSEMB= 000010 
A1716 = 00000 
BADDAT 3156 G 
BADSSR 015700 G 
BD * 177520 G 
BENBSW 002250 G 
BIE = 040000 
BITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
BIT = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITOS = 000400 G 
BITO9 = 001000 G 
BITi = 000002 G 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT1i2 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BITiS = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = G 
BITS = G 
BIT9 = 001000 G 
BOE = 000400 G 
BRINIT 004457 
BSELO = 000000 
BSEL1 = 000001 
CHK 016044 
CHKMAN 017762 G 
CHKTSS 016336 
CKDROP 017202 
CKEMAX 017102 
CKMSG 011360 G 
CKMSG2 011500 G 
CKRAM 011114 G 
CKRAM2 011224 G 
CMOPKT 020610 G 
CONFIG 017250 
COUNT 002310 G 
CSRADD 2206 G 
CTAB 003164 G 
CTABE 003176 G 
CTABM 003164 G 


000061 
000022 
000004 


002220 
022726 


FREEHI 
FRESIZ 


So 
OHHH © 
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an 


ao 


an 


INTFLA 


016145 


AHA 


° 
an 


SEQ 0252 


016144 


002216 G 
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SEQ 0253 

Symbol teble | 
LOOPCO 013126 L10001 002176 L10073 066214 ONEFIL= 000000 014552 G } 
LOOPFL 003162 G 10002 005766 L10074 064354 OSAPTS= 000000 Pp 0147 | 
LOT # 000010 G L10003 012044 110075 074052 OsAU = 000001 PRMSG1 014777 { 
Lsace 002110 G L10004 012062 L10076 077 O$BGNR= 000001 015035 
LSAPT 002036 G L10005 012100 L10077 101236 OSBGNS= 000001 PROASC 014420 { 
LSAU 021702 G 10006 12106 L10100 101262 Os0U = 000001 1ASC 014465 
LSAUT 002070 G L10007 012124 L10101 101402 OsERRT= 000000 PST32W 003152 G 
LSAUTO 022106 G L10010 012142 013754 G GNSW= 000001 T 021634 
LsCcCP 002106 G L10011 0121 MCK 20626 G O$POIN= 000001 PW.D1i= 000021 
LSCLEA 022166 G L10012 012240 MENASC 017731 O$SETU= 000000 PW.013= 000022 
Lsco 002032 G L10013 012410 NERR 176 PASRP 021404 -022= 000020 
LSDEPO 002011 G £10014 013124 MENRES 017760 PATCH 101542 G .NOP= 
LSDESC 003410 G L10015 013752 MIMENU 072732 PATDAT 017512 PW.NO1= 000023 
LSDESP 002076 G L10016 013774 EC = 000250 C.ERA= 2400 PW.RDE= 000024 
LSDEVP 002060 G 110017 15 MSA.FR= 000006 PC.IER= 002000 -ROR= 000001 
LSDISP 002124 G 100 15 MSA.NO= 000000 PC.NOO= 001000 PW.RDS= 000005 
LSOLy 002116 G L10021 015514 MSA.NR= 000004 PC.REL= PW.RFI= 000003 
LsoTP 002040 G 10022 15526 MSA.VO= 000002 PC.REW= 000400 PW.WCT= 000006 
LSOTYP 002034 G L10023 015550 MSGEXP 012144 G PKBCNT= 000006 PW.WFI= 000004 
L¢ouU 022000 G L10024 015576 MSGLOO 01 G PKHI = 000004 PW.WFM= 000007 
L8OUT 002072 G L10025 015736 MSGSTA 012350 G PKLOW = PW.WMI= 000010 
LSOVTY 003402 G L10026 016246 MSGSUB 013742 G PKTADD 007554 PW.WNP= 000011 
Ler 002052 G L10030 021632 MS.ATT#= PKTFRM 007516 PW.WTR= 
LSENVI 002044 G L10031 021776 MS.EXT= 000200 PKTGET 12064 G P.ACK = 1 
LSETP 002102 G L10032 022104 MS.RSD= 000001 PKTMES 012110 G P.CMD = 000037 
LSEXP1 002046 G L10033 221 -RSF= 000020 PKTRAM 745 G P.CONT= 000012 
LSExXP4 002064 G L10034 022212 MS.RST= 000010 PKTSSR 012046 G P.CVC = 04 
LSEXPS 002066 G L10035 224 186 005554 PNT a 1000 G P.FMT = 000140 

SHARD 101242 G 10036 023754 M8189 005645 PRAMPK 013776 P.FORM= 000011 
LS8HIME 002120 G L10037 025746 A a 2000 PRASC 014523 P.GETS= 000017 
LSHPCP 002016 G L10040 024230 NEWPAS 021340 PRBEXP 015470 P.IE = 
LSHPTP 002022 G L10041 024474 NODEV 003114 G PRBMSG 015336 P.INIT= 000013 
LSHw 002156 G L10042 031342 NOEXTF 027536 PRBREC 015472 P.MODE= 007400 
LsIce 002104 G L10043 026322 NOINIT 004335 PRBTOT 015423 P.OPP = 020000 
LSINIT 021106 G L10044 026612 NOINTR 004221 PRBYTE 015122 G P.POSI= 000010 
LSLADP 002026 G L10045 027110 NOITS 002170 G PRI 5 G P.READ= 000001 
LSLAST 102004 G L10046 027542 N 020016 PRIADD 010160 P.SWB = 010000 
L$LOAD 002100 G L10047 34132 "4 0054 PRIAO 010230 P.WRIT= 000005 
L.$LUN 002074 G L100S0 031676 NP.IR = 000200 PRIBXO 0076i2 G P.WRTC= 000004 
LSMREV 002050 G L10051 32270 NP .LOO= PRIEQU O01 P.WRTS= 000006 
LSNAME 002000 G L10052 3267 NP .OUT= 000100 PRIPKT 007370 G QvP 002204 G 
LSPRIO 002042 G L10053 037724 NP .WRP= 000020 PRIRAM 1 RAMASC 014156 

$PROT 021076 G 10054 035216 I 004152 PRITAD 010274 RAMDAT 242 G 
LSPRT 002112 G L1i0055 036150 NSINIT 004407 PRITSS 024 RAMERR 015510 G 
LSREPP 002062 G 10056 050036 NUL 004527 PRITO 010356 RAMEXP 015530 G 

SREV 002010 G L10057 040230 NULCR 0045 PRIT1 010421 RAMF 010116 
LéRPT 022214 G Li0060 041440 NUMENU 075342 PRIXOR 007742 G RAMSIZ 2302 G 
LSSOFT 101374 G L10061 3000 NXM a PRIOO = 000000 G RAMTAD 015516 G 
L¢SPC 002056 G L10062 043356 NXMFLG 003136 G PRIO1 = 000040 G RCVHIA 2304 G 
L$SPCP 002020 G L10063 NXMHI 003142 G PRIO2 = 000100 G RCVLOA 002306 G 
LSSPTP 002024 G L10064 045674 NXMLO 003140 G PRIO3 = 000140 G ROERR 5206 
LSSTA 002030 G L10065 051316 NXMTST 021002 PRIO4 = 000200 G RECMSG 4 G 
Lssw 002166 G L10066 0621 XR 3740 PRIOS = 000240 G RECV 22 G 
L*TEST 002114 G L10067 053322 NXRERR S736 G PRIO6 = 000300 G REGSAV 017422 
LSTIML 002014 G L10070 054610 NXRX 003777 PRIO7 = 000 G T 372 
LSUNIT 002012 G L10071 056060 NXTU 021352 PRMESS 014242 REWIND 011014 G 
Li 002164 110072 057324 OFL = 100 PRMNO 2 G HBE= 000167 
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SEQ 0254 
Syabol teble 
RMCHEN® $1.I1R= 020000 TSsv2 G Til 074054 G TiS8F2 033430 | 
RMMSGB= 000215 $1.I2R= 040000 TSV3 002176 G 077564 G Ti | 
RMMSGE= 000234 $1.PAR= 100000 TSV4 021076 G T12BFR 027632 T158S1 033431 { 
RMPKTB= S2.ATI= 000010 TSVS 022776 G T 030307 TISDAT 032730 
RMPKTE= 000210 S2.8TI= TSV 101240 G TI2BLK 027664 031374 
RMR == O1 $2.0IM= TTIBFR= 177562 G 031300 TISPAC 032 
RWPACK 011110 S2.ILW= 000100 TTICSR= 177560 G T12CKR 031060 G 15PK2 
sc = S2.INR= TTION 100302 T12CON O T 034022 
s $2.0UT*= 000040 070776 T1I2DAT 027620 TiSRT2 034074 
CHERR = 000003 TTIVEC= 000060 T120PR TiSSSR 033436 
SCME 3 BLEND= 003062 G TVECSA 100304 12GET 033432 
100310 TCOASC 006476 TVSAV2 071000 TI2HIA 027652 T15S3 
SDELAY 006676 TSARGC= 000001 T12K 27 037610 
017724 TEMP1 003116 G $CODE= 001130 T1I2LOA 027654 T16BFR 
SELDAT= G TSERRN= 002261 T12L00 025776 T16BFS 037602 
2 TERCLS= 000016 TSEXCP= 000000 T1i2MSG 0302 R 037426 
SETMAP 017316 TNO= 000014 TSFLAG= 000040 TI2NIN 030375 TI6DAT 037550 
SETU 4 EXASC TSGMAN= 000000 T1L2NXM 037620 
012102 G TFCASC 006537 TSHILI= 000776 T12PAC 027610 0. 
015552 G TSLAST= 027656 716028 
SFIERR 003652 TIMSGO TSLOLI= T12SET 031236 T16053 0 
IMSG 012034 G TI 012021 TSLSYM= 010000 T12SWR 031170 T16078 036210 
1 TMPBFR 002632 G TSLTNO= 4 T12TBE TI6LEN 
SIFLAG 016704 TSNEST= 177777 TIQWRT 030122 T16L00 034152 
011766 PRISA T$NSO = T121L0 026110 T1I6PAC 7 
SKIPT TPSAV2 071002 TS$NS1 = 000005 T12 02 T16PK2 037610 
015774 G TRANST 002166 G T&NS2 = 000002 T123L0 02 TI6REJ 
SPACE 1 G TSBA = 000000 G T&NS3 = 000003 T124L0 027306 T16RES 037360 
SPM1 101402 TSBAH = 000001 G TSPTNU= T124TS 027662 T16SEX 037520 
101432 TSOB = 000000 G TSSAVL= 177777 T13BFR 0234 16 037452 
101462 TSOBH = G T$ ® 177777 T13DAT 023400 T16SSR 
SPM7 101512 TSFCOD 007236 T$SEKO= 010000 T13L 023014 16T r) 
SRO «= 177572 TSREJ = Ts & T13MEM 023505 T16T01 036761 
SR1 = 177574 TSSOEF TSTAGL= 177777 TI3NBA 023 T16T28 
SR2 = 177576 TSSR = 000002 G TSTAGN= 010102 T1I3PAC 023370 T16T53 037160 
SRS = 172516 TSSRBI 003502 G TSTEMP= TI3RES 023706 T16T78 
SSR _ = 000200 TSSRFO 006415 TSTEST= 14 T13SSR 023617 TI6WMI 037472 
STATCO 012412 TSSRH = 000003 G TSTSTM= 177777 Ti4BFR 0245 T162SS 036317 
VCGBL= 000000 TSSX 004020 TSTSTS= 1 T148S0 024520 T163SS 3 
SVCINS= 000000 TSTBLK 002752 G TS$s$AU = 010031 T148S1 024521 T17BEN 047712 
VCSUB= 000001 TST 002214 G TS$$AUT= 010033 024522 TL7BFR 047572 
VCTAG= 000000 ST 016720 TS$CLE= 010034 T14DAT 024520 Til 047612 
SVCTST= TSTFLA 002314 G T#$s0U = 010032 T140TA 025140 TI7CLE 047476 
S$LSYM= 010000 TSTL 016456 G TS$$HAR= 010100 00 3774 T1I7CLR 047310 
so. = 000010 TSTPTR 002316 G TS$HW = O1 T1L4NBA 152 T17DAT 7 
so. * 000002 TSTSET 016510 G TSsINI= 30 T14NIN S54 T170T2 047730 
SO.IFP= 000001 TSTi2I Oo T$$MSG= 010025 TI4PAC 024510 TI7EXE 
$O.ILD= 000020 TsTi3I 0234 T$$PRO= 010027 T14PK2 025130 7E 045732 
SO.ION= 000040 TSTi4I 025571 TS$RPT= 010035 TI4RES 0256 TI7EXS 0457 
$O.IRD= 000100 TSTiSI 034 TS$SEG= 01 TI4RST 025674 T17L00 037754 
S$O.IRW= TSTi6I 036212 T$$SOF= 010101 4SSR 025323 T17MSK 
$O.ISP= 000200 TST17I 046156 TS$SRV= 010026 T14TSB 025 T1I7PAC 047550 
$1.ICE= TSTi8I 050 T$$SUB= 010074 TI42RE 025226 T1 047720 
$1.IEO= 010000 TST19I 057532 T$$SW = 010001 TISAM2 033512 TI7RFI 047456 
Si1.IFM= 001000 TST TSsTES= 77 TISAMS 033613 047354 
$1.IHE= 000400 TST39I 077534 T1 022776 G TISAM4 033715 TI7SET 047516 
$1.IID= 004000 TST40I 101222 T10 216 TISBFR 032742 TL7SNP 047376 
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SEQ 0255 
Syabol teble | 
TI7SRD 047334 TI9WCT 061472 T3BFLG 003150 G T39NE 076333 WF .IED= 000010 } 
Ti7SSR 046175 TIOWFI 4 T3.1 025776 T3SONFL 076330 WF .IER= 000004 } 
TL7WFO TLOWFM 061512 T3.2 026336 T390FF 077376 WF .IHI= 000200 
047422 Ti9WST 061073 3.3 0. T390F2 076574 WF .IRE= 000040 
T171CmM 046515 T191CM 30 3.4 027124 T3 077405 WF .IWF= 0000. 
046577 9 1 T38ASC T390N2 07 WF .IWR= 000100 
T172Ss T192SS 057630 T38ASN 074024 T3 077201 WF .I3R= 
046673 T193CM 06 T38A 073702 T39PAC 075: WF .I4R= 
T173SS 046276 T193SS 7674 T38AS1 073747 7 WRTICHR O1 G 
046757 T194SS 057741 T38BFR 071026 T39PK3 076310 WRTERR 005113 
T174SS 3 T 74 T38B8SO 071020 T39PK4 076320 T 
047042 T195SS T38BS1 071021 T39ORES 077476 SMBK G 
T175SS 060550 T38BS2 071022 T3 077472 XFERAS 015740 
047116 T196SS T38CNT 0740 T39SB8S 077324 016376 
T176SS T197CM 33 T38DAT 073340 T39 077252 XORBFO 
047224 T197SS 060113 T380LY T39SIZ 076 XORFOR 010012 
i 1 060721 380SW 071530 T39SSR 077111 xSTO = G 
Ti 050753 T1986SS 1 T38DTA 071520 T39 075570 XST1 = 000010 G 
T18DAT 1 Ti 061010 T38EAI 071526 T39WPN 076756 xXxST2 = 000012 G 
T180T2 051310 23756 G 38EB 071502 T3 076322 XST3 = 000014 G 
a te) T2.1 023774 T38ID 072705 T39WRT ©76703 XST4 = 000016 G 
T2.2 024244 T38INT 072276 4 3 G xSOBO0T= 
Ti Te 06607 07 T4.1 031374 XSOEOT= 000001 
Ti8PAC 051230 T R 0657 SG 072645 T4.2 00 IE = 
Ti 1 T208FS 065772 T38MS1 072506 T4.3 032272 XSOILA= 
T1I8SET i T20CLE 06 T36MS2 07. T4ONE 101155 XSOILC= 001000 
051076 T20CLR 0654 T38MS3 071645 5 134 G XSOLET= 
T18 1 T2OCWP 065357 T38NBA 072132 73.3 034152 XSOMOT= 000200 
T1i8SSR T20DAT 0657 T38NE 071570 5.2 035232 XSONEF = 
Ti8xS 050542 T200T2 066110 T380FL 072362 T6 G XSOONL= 000100 
T20EXE 0645 T38ONL 072326 T6.1 037754 XSOPED= 000010 
T163SS 050706 T20EXP 064412 T38PAC 071010 6.2 040244 XSORLL= 010000 
T20EX$ 064432 T38PK2 071510 6.3 041454 XSORLS= 
T1i98FC 057346 T20L00 062164 T38PK3 071540 76.4 043014 XSOTMK= 100000 
T19BFR 0644 T38PK4 071560 6.5 043372 XSOVCK= 
T1i96FS 061722 T2OPAC 065730 3BRES 073342 6.6 XSOWLE= 004000 
Ti 061550 T20PK2 1 T38SIZ 1566 T7 050040 G XSOWLK= 
T19CLR 1 T2ORFI 065536 T38SSR 072206 T8 051320 G XXCOMM 003122 G 
TI9SCNV 061614 T2ORSF S2 T38SST 072416 T8.2 051336 X$ALWA= 
061670 T20SET 065704 T38TAD 071020 T8.2 053336 X$FALS= 
T190T2 T20SEX T38WLE 072065 8.3 0 4 XSOFFS= 000400 
5 T 065476 T36WR 071562 4 74 X$TRUE= 000020 
TI9EXP 057412 T20SSR 1 T3BWRL 072024 T9 062146 G X1.COR= 
TI9EXS 057432 T20SWP 065147 T38WRT 071740 T9.1 062164 X1.0LT= 
051336 T I 065556 T39BFR 075576 = G X1.MBZ= 017375 
Ti 7 T20WFM 065612 T398SO 075570 UNITN 002202 G X1.RBP= 
TI9PAC 061660 T20WMI T398S1 075571 UNREC = X1.SPA= 040000 
T1i9PK2 T 065516 T398S2 075572 004123 X1.UNC= 
T19PRE 7 T202SS 16 T39DAT 077474 WAITF 016250 G X2.BUF= 000100 
TIORFI 061416 T203SS T39DLY 075552 WC.IFA= 000200 X2.EXT= 000200 
350 T204SS 064727 T390SW 076300 WC.IFE= 000002 X2.0PM= 100000 
TI9RST T205SS 064772 T39D0TA 076270 WC.IGO= 000001 X2.RCE= 040000 
T19SET 061570 T206SS 0650 T39EAI 076276 WC.IRE= 000010 X2.REV= 000077 
x 1532 T208SS 065101 T39ETN 076501 WC. IRW= X2.SPA= 035400 
TI9SNP 061372 T23A 003144 G T39ETS 076412 WC.IO0T= 000100 X2.UNI= 00000 
T19SRD 13 T238 003146 G T3 077414 wC.IiT= X2.WCF= 002000 
T19SSR 057573 T3 025750 G T39NBA 077035 WC.ISR= 000020 xX3.0CK= 000010 
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SEQ 0256 

| Syabol teble 
X3.MBZ= 000006 X3.REV= 000040 X3.TRF= 000020 X4.MBZ= 017400 x4.TSM= 020000 
X3.MDE= 177400 X3.RIB= 000001 X4.HSP= 100000 X4.RCE= 040000 X4.WRC= 000377 | 
X3.0PI= 000100 X3.SPA= 000200 ' 


. ABS. 102004 000)=—s CRW, I, GBL ABS, OVR) 
000000 001 (CRW,I,LCL.REL,CON) 
Errore detected: 0 


eee Assembler statistics 


ile reads: 396 
t 


361 
work file: 32288 Words ( 437 proses) 
of core pool: 19714 Words ( 7 ag: 
eee system: RSX-11M/PLUS (under AX 


/VMS ) 





